more whitespace removal (from Michael G Schwern)

[p5sagit/p5-mst-13.2.git] / ext / File / Glob / Glob.pm

diff --git a/ext/File/Glob/Glob.pm b/ext/File/Glob/Glob.pm
index a8e0262..0e1382b 100644 (file)
--- a/ext/File/Glob/Glob.pm
+++ b/ext/File/Glob/Glob.pm
@@ -109,11 +109,8 @@ if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos|MacOS)$/) {
 # 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);
 }
 
@@ -349,7 +346,7 @@ following copyright:
 
     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.