Author: timbo
Date: Mon Sep 4 06:40:38 2006
New Revision: 6843
Modified:
dbi/trunk/Changes
dbi/trunk/lib/DBI/PurePerl.pm
dbi/trunk/t/72childhandles.t
Log:
Fixed checks for weaken to work with early 5.8.x versions
Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes (original)
+++ dbi/trunk/Changes Mon Sep 4 06:40:38 2006
@@ -6,6 +6,10 @@
XXX update docs for Profile &subname magic Path elements
+=head2 Changes in DBI 1.53 (svn rev XXX), XXX 2006
+
+ Fixed checks for weaken to work with early 5.8.x versions
+
=head2 Changes in DBI 1.52 (svn rev 6840), 30th July 2006
Fixed memory leak (per handle) thanks to Nicholas Clark and Ephraim Dan.
Modified: dbi/trunk/lib/DBI/PurePerl.pm
==============================================================================
--- dbi/trunk/lib/DBI/PurePerl.pm (original)
+++ dbi/trunk/lib/DBI/PurePerl.pm Mon Sep 4 06:40:38 2006
@@ -42,7 +42,7 @@
my $HAS_WEAKEN = eval {
require Scalar::Util;
# this will croak() if this Scalar::Util doesn't have a working weaken().
- Scalar::Util::weaken(my $test = \"foo");
+ Scalar::Util::weaken( my $test = [] );
1;
};
Modified: dbi/trunk/t/72childhandles.t
==============================================================================
--- dbi/trunk/t/72childhandles.t (original)
+++ dbi/trunk/t/72childhandles.t Mon Sep 4 06:40:38 2006
@@ -13,7 +13,7 @@
my $HAS_WEAKEN = eval {
require Scalar::Util;
# this will croak() if this Scalar::Util doesn't have a working weaken().
- Scalar::Util::weaken( \my $test ); # same test as in DBI.pm
+ Scalar::Util::weaken( my $test = [] ); # same test as in DBI.pm
1;
};
if (!$HAS_WEAKEN) {
