[svn:dbi] r9117 - in dbi/trunk: lib/DBI/Gofer t

[timbo]

Author: timbo
Date: Fri Feb 16 14:37:03 2007
New Revision: 9117

Modified:
   dbi/trunk/lib/DBI/Gofer/Execute.pm
   dbi/trunk/t/85gofer.t

Log:
Minor tweaks


Modified: dbi/trunk/lib/DBI/Gofer/Execute.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Execute.pm  (original)
+++ dbi/trunk/lib/DBI/Gofer/Execute.pm  Fri Feb 16 14:37:03 2007
@@ -92,7 +92,7 @@
     my ($self, $request) = @_;
 
     # just a quick hack for now
-    if (++$self->{request_count} % 100 == 0) { # XXX config
+    if (++$self->{request_count} % 1000 == 0) { # XXX config
         # discard CachedKids from time to time
         my %drivers = DBI->installed_drivers();
         while ( my ($driver, $drh) = each %drivers ) {

Modified: dbi/trunk/t/85gofer.t
==============================================================================
--- dbi/trunk/t/85gofer.t       (original)
+++ dbi/trunk/t/85gofer.t       Fri Feb 16 14:37:03 2007
@@ -54,14 +54,14 @@
 
 while ( my ($activity, $stats_hash) = each %durations ) {
     print "\n";
-    $stats_hash->{baseline} = delete $stats_hash->{"no+pedantic"};
-    for my $perf_tag (sort keys %$stats_hash) {
+    $stats_hash->{'~baseline~'} = delete $stats_hash->{"no+pedantic"};
+    for my $perf_tag (reverse sort keys %$stats_hash) {
         my $dur = $stats_hash->{$perf_tag};
         printf "  %6s %-13s: %.6fsec (%5d/sec)",
             $activity, $perf_tag, $dur/$perf_count, $perf_count/$dur;
-        my $baseline_dur = $stats_hash->{baseline};
-        printf " %+dms", (($dur-$baseline_dur)/$perf_count)*1000
-            unless $perf_tag eq 'baseline';
+        my $baseline_dur = $stats_hash->{'~baseline~'};
+        printf " %+5.1fms", (($dur-$baseline_dur)/$perf_count)*1000
+            unless $perf_tag eq '~baseline~';
         print "\n";
     }
 }