# Autoload methods go after =cut, and are processed by the autosplit program.
sub glob {
- my $pat = shift;
- my $flags = shift;
- if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos|MacOS)$/) {
- $flags |= GLOB_NOCASE();
- }
+ my ($pat,$flags) = @_;
+ $flags = $DEFAULT_FLAGS if @_ < 2;
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.