Blame util/perl/OpenSSL/Glob.pm

Packit c4476c
package OpenSSL::Glob;
Packit c4476c
Packit c4476c
use strict;
Packit c4476c
use warnings;
Packit c4476c
Packit c4476c
use File::Glob;
Packit c4476c
Packit c4476c
use Exporter;
Packit c4476c
use vars qw($VERSION @ISA @EXPORT);
Packit c4476c
Packit c4476c
$VERSION = '0.1';
Packit c4476c
@ISA = qw(Exporter);
Packit c4476c
@EXPORT = qw(glob);
Packit c4476c
Packit c4476c
sub glob {
Packit c4476c
    goto &File::Glob::bsd_glob if $^O ne "VMS";
Packit c4476c
    goto &CORE::glob;
Packit c4476c
}
Packit c4476c
Packit c4476c
1;
Packit c4476c
__END__