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