| Category: | Win32 Stuff |
| Author/Contact Info | Cribbed from perldoc perlwin32 |
| Description: | Globs filenames for Win32 Perl scripts You need to set PERL5OPT=-MWild Save it in your perl/lib directory |
# Wild.pm - emulate shell @ARGV expansion on shells that don't
use File::DosGlob;
@ARGV = map {
my @g = File::DosGlob::glob($_) if /[*?]/;
@g ? @g : $_;
} @ARGV;
1;
|
|
|
|---|
Back to
Code Catacombs