Author: timbo
Date: Mon Jun 16 09:33:29 2008
New Revision: 11429
Modified:
dbi/trunk/Changes
dbi/trunk/DBI.pm
dbi/trunk/t/70callbacks.t
Log:
Increased default $DBI::neat_maxlen from 400 to 1000
Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes (original)
+++ dbi/trunk/Changes Mon Jun 16 09:33:29 2008
@@ -56,7 +56,15 @@
=head2 Changes in DBI 1.605 XXX
- Fixed problem with DBIS macro with threads on big-endian machines
+Make trace level 2 show method entry but not fetched rows, leave that for
trace level 3.
+So trace level 2 can be used to aid debugging without being flooded by data
+
+1 = return from top level only, no rows
+2 = +entry to top level, no rows
+3 = +return from nested, no rows
+4 = +entry to nested, with rows
+
+ Fixed broken DBIS macro with threads on big-endian machines
with 64bit ints but 32bit pointers. Ticket #32309.
Fixed the selectall_arrayref, selectrow_arrayref, and selectrow_array
methods that get embedded into compiled drivers to use the
@@ -65,10 +73,11 @@
Fixed leak in neat() for some kinds of values thanks to Rudolf Lippan.
Fixed DBI::PurePerl neat() to behave more like XS neat().
+ Increased default $DBI::neat_maxlen from 400 to 1000.
+ Increased timeout on tests to accomodate very slow systems.
Clarified docs re ":N" style placeholders.
Changed the format of the key used for $h->{CachedKids}
(which is undocumented so you shouldn't depend on it anyway)
- Increased timeout on tests to accomodate very slow systems.
Improved gofer retry-on-error logic and refactored to aid subclassing.
Improved gofer trace output in assorted ways.
Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm (original)
+++ dbi/trunk/DBI.pm Mon Jun 16 09:33:29 2008
@@ -241,7 +241,7 @@
);
$DBI::dbi_debug = 0;
-$DBI::neat_maxlen = 400;
+$DBI::neat_maxlen = 1000;
$DBI::stderr = 2_000_000_000; # a very round number below 2**31
# If you get an error here like "Can't find loadable object ..."
Modified: dbi/trunk/t/70callbacks.t
==============================================================================
--- dbi/trunk/t/70callbacks.t (original)
+++ dbi/trunk/t/70callbacks.t Mon Jun 16 09:33:29 2008
@@ -175,7 +175,7 @@
return if our $avoid_deep_recursion->{"$h $_"}++;
my $this = $h->$_(@_);
undef $_; # tell DBI not to call original method
- return $dbh; # tell DBI to return this instead
+ return $this; # tell DBI to return this instead
};
XXX should add a test for this
