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__
|