2
0

Glob.pm 274 B

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