1package OpenSSL::Glob; 2 3use strict; 4use warnings; 5 6use File::Glob; 7 8use Exporter; 9use vars qw($VERSION @ISA @EXPORT); 10 11$VERSION = '0.1'; 12@ISA = qw(Exporter); 13@EXPORT = qw(glob); 14 15sub glob { 16 goto &File::Glob::bsd_glob if $^O ne "VMS"; 17 goto &CORE::glob; 18} 19 201; 21__END__ 22