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