[svn:dbi] r2407 - dbi/trunk

[timbo]

Author: timbo
Date: Fri Jan 13 06:14:29 2006
New Revision: 2407

Modified:
   dbi/trunk/Changes
   dbi/trunk/DBI.pm
Log:
Fixed for perl 5.8.0's more limited weaken() function


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Fri Jan 13 06:14:29 2006
@@ -9,6 +9,7 @@ DBI::Changes - List of significant chang
   Fixed $dbh->clone method 'signature' thanks to Jeffrey Klein.
   Fixed default ping() method to return false if !$dbh->{Active}.
   Fixed t/40profile.t to be insensitive to long double precision.
+  Fixed for perl 5.8.0's more limited weaken() function.
 
   Changed DBI::ProfileData to be more forgiving of systems with
     unstable clocks (where time may go backwards occasionally).

Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm    (original)
+++ dbi/trunk/DBI.pm    Fri Jan 13 06:14:29 2006
@@ -276,7 +276,7 @@ if ($INC{'Apache/DBI.pm'} && $ENV{MOD_PE
 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;
 };