diff options
author | Daniel Elstner <danielk@openismus.com> | 2009-09-11 19:02:02 +0200 |
---|---|---|
committer | Daniel Elstner <danielk@openismus.com> | 2009-09-11 19:22:44 +0200 |
commit | 8fadd65f0cd623347b3f08009f8c5d716b63908a (patch) | |
tree | 7f89fd0b1812154af57076bb6456a543c2cbeb0a /util/doc-install.pl | |
parent | 5829bfee009402c4f798b1f32be764681a18118a (diff) | |
download | mm-common-8fadd65f0cd623347b3f08009f8c5d716b63908a.tar.gz |
Treat whitespace in glob patterns literally
* util/doc-{install,postprocess}.pl: Explicitly call the bsd_glob()
subroutine instead of the builtin glob() function. Although the
builtin glob() is implemented in terms of bsd_glob(), it additionally
splits its argument into multiple patterns separated by whitespace.
Diffstat (limited to 'util/doc-install.pl')
-rw-r--r-- | util/doc-install.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/util/doc-install.pl b/util/doc-install.pl index aeab988..91d3bdc 100644 --- a/util/doc-install.pl +++ b/util/doc-install.pl @@ -20,6 +20,7 @@ package main; use strict; use warnings; use bytes; +use File::Glob qw(:glob); use File::Spec; use Getopt::Long qw(:config no_getopt_compat no_ignore_case require_order bundling); @@ -201,7 +202,7 @@ unless (defined $target_dir) } error('No target directory specified') unless (defined($target_dir) and $target_dir ne ''); -@ARGV = map(glob, @ARGV) if ($expand_glob); +@ARGV = map(bsd_glob($_, GLOB_NOSORT), @ARGV) if ($expand_glob); my %basename_hash = (); foreach my $in_name (@ARGV) |