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