[Rt-commit] [svn] r1756 - in DBIx-SearchBuilder/trunk: . SearchBuilder SearchBuilder/Record

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Mon Nov  8 22:38:07 2004
New Revision: 1756

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
   DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
Log:
 r8943 at tinbook:  jesse | 2004-11-08T17:22:27.790250Z
 a couple tiny bug fixes


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	Mon Nov  8 22:38:07 2004
@@ -1079,7 +1079,7 @@
     my $QueryString = "DELETE FROM ". $self->Table . ' ' . $where;
    my $return = $self->_Handle->SimpleQuery($QueryString, @bind);
 
-    if (UNIVERSAL::isa('Class::ReturnValue')) {
+    if (UNIVERSAL::isa('Class::ReturnValue', $return)) {
         return ($return);
     } else {
         return(1); 

Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm	Mon Nov  8 22:38:07 2004
@@ -150,9 +150,8 @@
 sub _fetch () {
     my ( $self, $cache_key ) = @_;
     my $data = $self->_RecordCache->fetch($cache_key) or return;
-    %$self = %$data; #deserialize it
 
-    #@{$self}{keys %$data} = values %$data; # deserialize
+    @{$self}{keys %$data} = values %$data; # deserialize
     return 1;
 
 }