diff options
author | Richard Levitte <levitte@openssl.org> | 2016-05-25 15:02:20 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-05-27 17:41:32 +0200 |
commit | 04b7805a8686d33186ca9e0571355e7fa2ef2d86 (patch) | |
tree | 71e306eb9af5191d21f8773b73cc99c662bb95de /util/process_docs.pl | |
parent | cb66390857fe9477e567f163302b4e34aeff8e6e (diff) |
perl glob: make sure to put quotes around the pattern, in case of spaces
RT#4486
Reviewed-by: Matt Caswell <matt@openssl.org>
Diffstat (limited to 'util/process_docs.pl')
-rw-r--r-- | util/process_docs.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/util/process_docs.pl b/util/process_docs.pl index c2c35ee1c5..efc4ef5361 100644 --- a/util/process_docs.pl +++ b/util/process_docs.pl @@ -72,9 +72,9 @@ my $symlink_exists = eval { symlink("",""); 1 }; 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 ); |