summaryrefslogtreecommitdiffstats
path: root/util/process_docs.pl
diff options
context:
space:
mode:
authorAndy Polyakov <appro@openssl.org>2016-05-28 16:11:01 +0200
committerAndy Polyakov <appro@openssl.org>2016-05-29 14:12:35 +0200
commit97855556161155d87635787aca341a6a86b2f9e4 (patch)
tree411770007dc49579d4edc0fb890d86f187633b09 /util/process_docs.pl
parentf59f23c38331e3adf58c0317caf319a7bfd82dd1 (diff)
Configure,test/recipes: "pin" glob to File::Glob::glob.
As it turns out default glob's behaviour for quoted argument varies from version to version, making it impossible to Configure or run tests in some cases. The reason for quoting globs was to accommodate source path with spaces in its name, which was treated by default glob as multiple paths. File::Glob::glob on the other hand doesn't consider spaces as delimiters and therefore works with unquoted patterns. [Unfortunaltely File::Glob::glob, being too csh-ly, doesn't work on VMS, hence the "pinning" is conditional.] Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'util/process_docs.pl')
-rw-r--r--util/process_docs.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/util/process_docs.pl b/util/process_docs.pl
index efc4ef5361..cf1d326065 100644
--- a/util/process_docs.pl
+++ b/util/process_docs.pl
@@ -13,6 +13,9 @@ use File::Spec::Functions;
use File::Basename;
use File::Copy;
use File::Path;
+if ($^O ne "VMS") {
+ use File::Glob qw/glob/;
+}
use Getopt::Long;
use Pod::Usage;
@@ -72,7 +75,7 @@ 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) {
my $podname = basename($podfile, ".pod");