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

[REHSACK]

Author: REHSACK
Date: Sat Sep 18 04:39:17 2010
New Revision: 14425

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

Log:
fixing for file/directory names with whitespaces in them


Modified: dbi/trunk/t/51dbm_file.t
==============================================================================
--- dbi/trunk/t/51dbm_file.t    (original)
+++ dbi/trunk/t/51dbm_file.t    Sat Sep 18 04:39:17 2010
@@ -60,7 +60,8 @@
 {
     my $fn_tbl2 = $dbh->{dbm_tables}->{fred}->{f_fqfn};
        $fn_tbl2 =~ s/fred(\.[^.]*)?/freddy$1/;
-    foreach my $fn (glob($dbh->{dbm_tables}->{fred}->{f_fqbn} . "*"))
+    my @dbfiles = glob('"' . $dbh->{dbm_tables}->{fred}->{f_fqbn} . "*" . '"');
+    foreach my $fn (@dbfiles)
     {
        my $tgt_fn = $fn;
        $tgt_fn =~ s/fred(\.[^.]*)?/freddy$1/;