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