diff options
| author | Richard Levitte <levitte@openssl.org> | 2017-07-28 13:38:03 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2017-07-28 14:45:17 +0200 |
| commit | 102c9e1296b656c4049c1110abc8a52b43bd0dcf (patch) | |
| tree | e059871601fc3f50546ede397ba089f6f4590aff /util | |
| parent | 735e350555a7f965ccb366afdabe569651d19d82 (diff) | |
Perl: Use File::Glob::bsd_glob rather than File::Glob::glob
File::Glob::glob is deprecated, it's use generates this kind of
message:
File::Glob::glob() will disappear in perl 5.30. Use File::Glob::bsd_glob() instead. at ../master/Configure line 277.
So instead, use a construction that makes the caller glob() use
File::Glob::bsd_glob().
Note that we're still excluding VMS, as it's directory specs use '['
and ']', which have a different meaning with bsd_glob and would need
some extra quoting. This might change, but later.
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4040)
Diffstat (limited to 'util')
| -rwxr-xr-x | util/mkdef.pl | 2 | ||||
| -rw-r--r-- | util/process_docs.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index b3eb6b3d9d..7a85e80082 100755 --- a/util/mkdef.pl +++ b/util/mkdef.pl @@ -49,7 +49,7 @@ use lib "."; use configdata; use File::Spec::Functions; use File::Basename; -use if $^O ne "VMS", 'File::Glob' => qw/glob/; +use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/; my $debug=0; diff --git a/util/process_docs.pl b/util/process_docs.pl index 5db78d85f2..49176ad30b 100644 --- a/util/process_docs.pl +++ b/util/process_docs.pl @@ -13,7 +13,7 @@ use File::Spec::Functions; use File::Basename; use File::Copy; use File::Path; -use if $^O ne "VMS", 'File::Glob' => qw/glob/; +use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/; use Getopt::Long; use Pod::Usage; |