1*53060421Schristospackage OpenSSL::Glob; 2*53060421Schristos 3*53060421Schristosuse strict; 4*53060421Schristosuse warnings; 5*53060421Schristos 6*53060421Schristosuse File::Glob; 7*53060421Schristos 8*53060421Schristosuse Exporter; 9*53060421Schristosuse vars qw($VERSION @ISA @EXPORT); 10*53060421Schristos 11*53060421Schristos$VERSION = '0.1'; 12*53060421Schristos@ISA = qw(Exporter); 13*53060421Schristos@EXPORT = qw(glob); 14*53060421Schristos 15*53060421Schristossub glob { 16*53060421Schristos goto &File::Glob::bsd_glob if $^O ne "VMS"; 17*53060421Schristos goto &CORE::glob; 18*53060421Schristos} 19*53060421Schristos 20*53060421Schristos1; 21*53060421Schristos__END__ 22