提交 102c9e12 编写于 作者: R Richard Levitte

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: NRich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4040)
上级 735e3505
......@@ -15,7 +15,7 @@ use Config;
use File::Basename;
use File::Spec::Functions qw/:DEFAULT abs2rel rel2abs/;
use File::Path qw/mkpath/;
use if $^O ne "VMS", 'File::Glob' => qw/glob/;
use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/;
# see INSTALL for instructions.
......
......@@ -450,7 +450,7 @@ ENDIF
{-
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 @nogo_headers = ( "asn1_mac.h",
"__decc_include_prologue.h",
......
......@@ -11,7 +11,7 @@ use strict;
use warnings;
use File::Spec;
use if $^O ne "VMS", 'File::Glob' => qw/glob/;
use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/;
use OpenSSL::Test qw/:DEFAULT data_file/;
use OpenSSL::Test::Utils;
......
......@@ -13,7 +13,7 @@ use warnings;
use File::Spec::Functions;
use File::Copy;
use File::Basename;
use if $^O ne "VMS", 'File::Glob' => qw/glob/;
use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/;
use OpenSSL::Test qw/:DEFAULT srctop_file/;
setup("test_rehash");
......
......@@ -12,7 +12,7 @@ use warnings;
use File::Basename;
use File::Compare qw/compare_text/;
use if $^O ne "VMS", 'File::Glob' => qw/glob/;
use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/;
use OpenSSL::Test qw/:DEFAULT srctop_dir srctop_file/;
use OpenSSL::Test::Utils qw/disabled alldisabled available_protocols/;
......
......@@ -9,7 +9,7 @@
use strict;
use warnings;
use if $^O ne "VMS", 'File::Glob' => qw/glob/;
use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/;
use OpenSSL::Test qw/:DEFAULT srctop_file/;
use OpenSSL::Test::Utils;
......
......@@ -16,7 +16,7 @@ BEGIN {
use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/;
use File::Basename;
use if $^O ne "VMS", 'File::Glob' => qw/glob/;
use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/;
use Module::Load::Conditional qw(can_load);
my $TAP_Harness = can_load(modules => { 'TAP::Harness' => undef })
......
......@@ -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;
......
......@@ -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;
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册