[svn:dbi] r14867 - dbi/trunk/t

Author: REHSACK
Date: Tue May 17 23:50:57 2011
New Revision: 14867

Modified:
   dbi/trunk/t/51dbm_file.t

Log:
Fixing issue described in RT#68250


Modified: dbi/trunk/t/51dbm_file.t
==============================================================================
--- dbi/trunk/t/51dbm_file.t	(original)
+++ dbi/trunk/t/51dbm_file.t	Tue May 17 23:50:57 2011
@@ -69,7 +69,7 @@
 unless ($using_dbd_gofer)
 {
     my $fn_tbl2 = $dbh->{dbm_tables}->{fred}->{f_fqfn};
-       $fn_tbl2 =~ s/fred(\.[^.]*)?/freddy$1/;
+       $fn_tbl2 =~ s/fred(\.[^.]*)?$/freddy$1/;
     my @dbfiles = grep { -f $_ } (
 				     $dbh->{dbm_tables}->{fred}->{f_fqfn},
 				     $dbh->{dbm_tables}->{fred}->{f_fqln},
@@ -78,7 +78,7 @@
     foreach my $fn (@dbfiles)
     {
 	my $tgt_fn = $fn;
-	$tgt_fn =~ s/fred(\.[^.]*)?/freddy$1/;
+	$tgt_fn =~ s/fred(\.[^.]*)?$/freddy$1/;
 	File::Copy::copy( $fn, $tgt_fn );
     }
     $dbh->{dbm_tables}->{krueger}->{file} = $fn_tbl2;