Allow spaces in filenames when using perl's glob

Reviewed-by: Matt Caswell <matt@openssl.org>

diff --git a/util/copy-if-different.pl b/util/copy-if-different.pl
index 63a9a05f31f49f0fbeb7d6e400d0b5b45774c82c..2bf78358275f2d17bfcc7c0d6f7a966609c52a39 100755 (executable)
--- a/util/copy-if-different.pl
+++ b/util/copy-if-different.pl
@@ -18,7 +18,7 @@ my @filelist;
 
 foreach my $arg (@ARGV) {
        $arg =~ s|\\|/|g;       # compensate for bug/feature in cygwin glob...
-       foreach (glob $arg)
+       foreach (glob qq("$arg"))
                {
                push @filelist, $_;
                }

diff --git a/util/copy.pl b/util/copy.pl
index c4bcccdee6b318ed8cc6701c9a67c4bf21d8f607..ef4d8708e24789cc3cfc50fa77ca5f4c7481bbbe 100644 (file)
--- a/util/copy.pl
+++ b/util/copy.pl
@@ -26,7 +26,7 @@ foreach $arg (@ARGV) {
                next;
                }
        $arg =~ s|\\|/|g;       # compensate for bug/feature in cygwin glob...
-       foreach (glob $arg)
+       foreach (glob qq("$arg"))
                {
                push @filelist, $_;
                }