mirror of
https://github.com/openssl/openssl.git
synced 2024-12-09 05:51:54 +08:00
22 lines
274 B
Perl
22 lines
274 B
Perl
|
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__
|