diff options
| author | Richard Levitte <levitte@openssl.org> | 2017-08-01 22:43:56 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2017-08-15 11:31:18 +0200 |
| commit | 8d2214c0a49584044d96b80e846ac8f6df35a0ad (patch) | |
| tree | cfad073ef328f3983cece8b214a230a3819b6388 /util/perl | |
| parent | cb6afcd6ee0c0d66fae62e13fe5966171992f81c (diff) | |
File::Glob option ':bsd_glob' doesn't work everywhere, replace w/ a wrapper
Reviewed-by: Andy Polyakov <appro@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4069)
Diffstat (limited to 'util/perl')
| -rw-r--r-- | util/perl/OpenSSL/Glob.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/util/perl/OpenSSL/Glob.pm b/util/perl/OpenSSL/Glob.pm new file mode 100644 index 0000000000..ec87da4aea --- /dev/null +++ b/util/perl/OpenSSL/Glob.pm @@ -0,0 +1,21 @@ +package OpenSSL::Glob; + +use strict; +use warnings; + +use File::Glob; + +use Exporter; +use vars qw($VERSION @ISA @EXPORT); + +$VERSION = '0.1'; +@ISA = qw(Exporter); +@EXPORT = qw(glob); + +sub glob { + goto &File::Glob::bsd_glob if $^O ne "VMS"; + goto &CORE::glob; +} + +1; +__END__ |