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

[REHSACK]

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;