[svn:dbi] r14020 - in dbi/trunk: lib/DBD t

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,