openssl-1.1.0h/util/perl/OpenSSL/Glob.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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__