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 f703a0b..0e1382b 100644 (file)
--- a/ext/File/Glob/Glob.pm
+++ b/ext/File/Glob/Glob.pm
@@ -109,7 +109,9 @@ if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos|MacOS)$/) {
 # Autoload methods go after =cut, and are processed by the autosplit program.
 
 sub glob {
-    return doglob(@_);
+    my ($pat,$flags) = @_;
+    $flags = $DEFAULT_FLAGS if @_ < 2;
+    return doglob($pat,$flags);
 }
 
 ## borrowed heavily from gsar's File::DosGlob
@@ -344,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.