commit 04b7805a8686d33186ca9e0571355e7fa2ef2d86
author Richard Levitte <levitte@openssl.org> Wed May 25 15:02:20 2016 +0200
committer Richard Levitte <levitte@openssl.org> Fri May 27 17:41:32 2016 +0200
tree 71e306eb9af5191d21f8773b73cc99c662bb95de
parent cb66390857fe9477e567f163302b4e34aeff8e6e

perl glob: make sure to put quotes around the pattern, in case of spaces

RT#4486

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

util/process_docs.pl

diff --git a/util/process_docs.pl b/util/process_docs.pl
index c2c35ee..efc4ef5 100644
--- a/util/process_docs.pl
+++ b/util/process_docs.pl
@@ -72,9 +72,9 @@
 foreach my $subdir (keys %{$options{subdir}}) {
     my $section = $options{subdir}->{$subdir};
     my $podsourcedir = catfile($options{sourcedir}, $subdir);
-    my $podglob = catfile($podsourcedir, "*.pod");
+    my $podglob = '"'.catfile($podsourcedir, "*.pod").'"';
 
-    foreach my $podfile (glob "$podglob") {
+    foreach my $podfile (glob $podglob) {
         my $podname = basename($podfile, ".pod");
         my $podpath = catfile($podfile);
         my %podinfo = ( section => $section );