| yuezonghe | 824eb0c | 2024-06-27 02:32:26 -0700 | [diff] [blame^] | 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__ | ||||