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

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/;