sub glob {
my ($pat,$flags) = @_;
$flags = $DEFAULT_FLAGS if @_ < 2;
- if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos|MacOS)$/) {
- $flags |= GLOB_NOCASE();
- }
return doglob($pat,$flags);
}
Copyright (c) 1989, 1993 The Regents of the University of California.
All rights reserved.
-
+
This code is derived from software contributed to Berkeley by
Guido van Rossum.