Author: REHSACK
Date: Mon May 24 02:33:22 2010
New Revision: 14020
Modified:
dbi/trunk/lib/DBD/DBM.pm
dbi/trunk/t/50dbm_simple.t
Log:
Fix DBD::DBM typo and test
Modified: dbi/trunk/lib/DBD/DBM.pm
==============================================================================
--- dbi/trunk/lib/DBD/DBM.pm (original)
+++ dbi/trunk/lib/DBD/DBM.pm Mon May 24 02:33:22 2010
@@ -116,7 +116,7 @@
}
if( $attrib eq "dbm_ext" or $attrib eq "dbm_lockfile" )
{
- ( my $newattrib = $attrib ) =~ s/^dbm_/f_/g
+ ( my $newattrib = $attrib ) =~ s/^dbm_/f_/g;
# carp "Attribute '$attrib' is depreciated, use '$newattrib' instead"
if( $^W );
$attrib = $newattrib;
}
@@ -154,7 +154,7 @@
}
if( $attrib eq "dbm_ext" or $attrib eq "dbm_lockfile" )
{
- ( my $newattrib = $attrib ) =~ s/^dbm_/f_/g
+ ( my $newattrib = $attrib ) =~ s/^dbm_/f_/g;
# carp "Attribute '$attrib' is depreciated, use '$newattrib' instead"
if( $^W );
$attrib = $newattrib;
}
Modified: dbi/trunk/t/50dbm_simple.t
==============================================================================
--- dbi/trunk/t/50dbm_simple.t (original)
+++ dbi/trunk/t/50dbm_simple.t Mon May 24 02:33:22 2010
@@ -63,7 +63,7 @@
my %expected_results = (
2 => [
- "DROP TABLE IF EXISTS fruit", undef,
+ "DROP TABLE IF EXISTS fruit", -1,
"CREATE TABLE fruit (dKey INT, dVal VARCHAR(10))", '0E0',
"INSERT INTO fruit VALUES (1,'oranges' )", 1,
"INSERT INTO fruit VALUES (2,'to_change' )", 1,
@@ -84,7 +84,7 @@
"DROP TABLE fruit", -1,
],
3 => [
- "DROP TABLE IF EXISTS multi_fruit", undef,
+ "DROP TABLE IF EXISTS multi_fruit", -1,
"CREATE TABLE multi_fruit (dKey INT, dVal VARCHAR(10), qux INT)", '0E0',
"INSERT INTO multi_fruit VALUES (1,'oranges' , 11 )", 1,
"INSERT INTO multi_fruit VALUES (2,'to_change', 0 )", 1,
