Blame util/perl/OpenSSL/Glob.pm
|
Packit Service |
084de1 |
package OpenSSL::Glob;
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
use strict;
|
|
Packit Service |
084de1 |
use warnings;
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
use File::Glob;
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
use Exporter;
|
|
Packit Service |
084de1 |
use vars qw($VERSION @ISA @EXPORT);
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
$VERSION = '0.1';
|
|
Packit Service |
084de1 |
@ISA = qw(Exporter);
|
|
Packit Service |
084de1 |
@EXPORT = qw(glob);
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
sub glob {
|
|
Packit Service |
084de1 |
goto &File::Glob::bsd_glob if $^O ne "VMS";
|
|
Packit Service |
084de1 |
goto &CORE::glob;
|
|
Packit Service |
084de1 |
}
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
1;
|
|
Packit Service |
084de1 |
__END__
|