[svn:dbi] r11352 - in dbi/trunk: . lib/DBI/Gofer

[timbo]

Author: timbo
Date: Fri May 30 06:38:31 2008
New Revision: 11352

Modified:
   dbi/trunk/Changes
   dbi/trunk/DBI.pm
   dbi/trunk/lib/DBI/Gofer/Execute.pm

Log:
DBI/Gofer/Execute update_stats() can be called without frozen_request and/or 
frozen_response
if the corresponding objects are supplied.
Bump version number.


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Fri May 30 06:38:31 2008
@@ -57,6 +57,8 @@
 =head2 Changes in DBI 1.605 XXX
 
 Add note about _concat_hash_sorted once integrated
+Add DBI::Gofer::Serialiser::MIME / Base64
+Add DBI::Gofer::Serialiser::JSON
 
   Fixed problem with DBIS macro with threads on big-endian machines
     with 64bit ints but 32bit pointers. Ticket #32309.

Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm    (original)
+++ dbi/trunk/DBI.pm    Fri May 30 06:38:31 2008
@@ -9,7 +9,7 @@
 require 5.006_00;
 
 BEGIN {
-$DBI::VERSION = "1.604"; # ==> ALSO update the version in the pod text below!
+$DBI::VERSION = "1.605"; # ==> ALSO update the version in the pod text below!
 }
 
 =head1 NAME
@@ -121,7 +121,7 @@
 
 =head2 NOTES
 
-This is the DBI specification that corresponds to the DBI version 1.604
+This is the DBI specification that corresponds to the DBI version 1.605
 ($Revision$).
 
 The DBI is evolving at a steady pace, so it's good to check that

Modified: dbi/trunk/lib/DBI/Gofer/Execute.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Execute.pm  (original)
+++ dbi/trunk/lib/DBI/Gofer/Execute.pm  Fri May 30 06:38:31 2008
@@ -644,9 +644,11 @@
 
     my $stats = $self->{stats};
     $stats->{frozen_request_max_bytes} = length($frozen_request)
-        if length($frozen_request)  > ($stats->{frozen_request_max_bytes}||0);
+        if $frozen_request
+        && length($frozen_request)  > ($stats->{frozen_request_max_bytes}||0);
     $stats->{frozen_response_max_bytes} = length($frozen_response)
-        if length($frozen_response) > ($stats->{frozen_response_max_bytes}||0);
+        if $frozen_response
+        && length($frozen_response) > ($stats->{frozen_response_max_bytes}||0);
 
     my $recent;
     if (my $track_recent = $self->{track_recent}) {
@@ -662,7 +664,8 @@
         $recent->{response_object} = $response
             if !$frozen_response && $response;
         my @queues =  ($stats->{recent_requests} ||= []);
-        push @queues, ($stats->{recent_errors}   ||= []) if $response->err;
+        push @queues, ($stats->{recent_errors}   ||= [])
+            if eval { $response->err };
         for my $queue (@queues) {
             push @$queue, $recent;
             shift @$queue if @$queue > $track_recent;