Author: timbo
Date: Tue Jul 22 13:54:36 2008
New Revision: 11566
Modified:
dbi/trunk/Changes
dbi/trunk/Makefile.PL
dbi/trunk/test.pl
Log:
DBI now requires perl 5.8.1 or later. 5.6 is no longer supported.
Tweak mem leak tests in test.pl
Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes (original)
+++ dbi/trunk/Changes Tue Jul 22 13:54:36 2008
@@ -56,10 +56,8 @@
=head2 Changes in DBI 1.606
-Fix PERL_UNUSED_VAR for 5.6.2 - update ppport.h?
-No longer support 5.6? In future.
-(Access to recent errors in gofer http transport)
-Memory leak?
+ NOTE: Perl 5.8 is now the minimum supported version.
+ If you need perl 5.6 support then send me a patch.
Fixed missing import of carp in DBI::Gofer::Execute.
Modified: dbi/trunk/Makefile.PL
==============================================================================
--- dbi/trunk/Makefile.PL (original)
+++ dbi/trunk/Makefile.PL Tue Jul 22 13:54:36 2008
@@ -2,12 +2,12 @@
#
# $Id$
#
-# Copyright (c) 1994-2006 Tim Bunce Ireland
+# Copyright (c) 1994-2008 Tim Bunce Ireland
#
# See COPYRIGHT section in DBI.pm for usage and distribution rights.
BEGIN {
- require 5.006_00;
+ require 5.008_01;
unshift @INC, "lib";
}
@@ -38,17 +38,6 @@
$::opt_g &&= '-g'; # convert to actual string
-if ($] < 5.008000) {
- warn qq{
-**************************************************************************
- Perl versions below 5.6.1 are no longer supported by the DBI.
- Perl versions 5.6.x may fail during installation with a complaint
- about the use of =head3 in the pod documentation.
-**************************************************************************
-};
- prompt("Press return to continue...");
-}
-
if (($ENV{LANG}||'') =~ m/utf-?8/i) {
print "\n";
Modified: dbi/trunk/test.pl
==============================================================================
--- dbi/trunk/test.pl (original)
+++ dbi/trunk/test.pl Tue Jul 22 13:54:36 2008
@@ -77,7 +77,7 @@
if ($::opt_m) {
#$dbh->trace(9);
my $level = $::opt_m;
- my $cnt = 10000;
+ my $cnt = $::opt_n || 10000;
print "Using $driver, same dbh...\n";
for (my $i=0; $i<$cnt; ++$i) { mem_test($dbh, undef, $level, undef, undef,
undef) }
print "Using NullP, reconnecting each time...\n";
@@ -141,7 +141,7 @@
my $cursor_a;
my ($dl_count, $dl_handle);
- if ($$r_develleak++) {
+ if ($has_devel_leak && $$r_develleak++) {
$dbh->trace(2);
$dl_count = Devel::Leak::NoteSV($dl_handle);
}
