[svn:dbi] r10088 - dbi/trunk/lib/DBD/Gofer/Transport

[timbo]

Author: timbo
Date: Tue Oct 16 06:00:27 2007
New Revision: 10088

Modified:
   dbi/trunk/lib/DBD/Gofer/Transport/Base.pm

Log:
Fix caching (silence warning) for non-cachable requests.


Modified: dbi/trunk/lib/DBD/Gofer/Transport/Base.pm
==============================================================================
--- dbi/trunk/lib/DBD/Gofer/Transport/Base.pm   (original)
+++ dbi/trunk/lib/DBD/Gofer/Transport/Base.pm   Tue Oct 16 06:00:27 2007
@@ -105,7 +105,7 @@
     if ($response) {
         my $frozen_response = delete $response->{meta}{frozen};
         $self->_store_response_in_cache($frozen_response, $request_cache_key)
-            if $go_cache;
+            if $request_cache_key;
     }
 
     $self->trace_msg("transmit_request is returing a response itself\n") if 
$response;
@@ -158,8 +158,9 @@
 
     if ($response) {
         my $frozen_response = delete $response->{meta}{frozen};
-        $self->_store_response_in_cache($frozen_response, 
$request->{meta}{request_cache_key})
-            if $self->{go_cache};
+        my $request_cache_key = $request->{meta}{request_cache_key};
+        $self->_store_response_in_cache($frozen_response, $request_cache_key)
+            if $request_cache_key && $self->{go_cache};
     }
 
     return $response;