util/perl/OpenSSL/Glob.pm

   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__