Changeset 383 for trunk

Timestamp:

06/21/07 22:40:54 (3 years ago)

Author:

ykerherve

Message:

here we go, this is what I wanted to check in as r381

Partly reverting Garth's change about remove:
for remove, it's probably safer to remove from the cache first

Files:

• trunk/lib/Data/ObjectDriver/Driver/BaseCache.pm (modified) (1 diff)

trunk/lib/Data/ObjectDriver/Driver/BaseCache.pm

@@ -198 +198 @@
         Carp::croak("nofetch option isn't compatible with a cache driver");
     }
-
-    my $ret = $driver->fallback->remove(@_);
     if (ref $obj) {
-        $driver->remove_from_cache($driver->cache_key(ref($obj),
-                                   $obj->primary_key));
-    }
-
-    return $ret;
+        $driver->remove_from_cache($driver->cache_key(ref($obj), $obj->primary_key));
+    }
+    $driver->fallback->remove(@_);
 }