gflohr / file-globstar Goto Github PK

diff --git a/lib/File/Globstar.pm b/lib/File/Globstar.pm
index ba4108caf4..aaa77fe9fd 100644
--- a/perlmod/CPAN/perl5.34.1/lib/perl5/File/Globstar.pm
+++ b/perlmod/CPAN/perl5.34.1/lib/perl5/File/Globstar.pm
@@ -120,7 +120,7 @@ sub _globstar($$;$) {
             $current .= '/';
 
             # Expand until here.
-            my @directories = bsd_glob $current, $flags;
+            my @directories = bsd_glob($current, (defined $flags ? $flags : ()));
 
             # And search in every subdirectory;
             my %found_dirs;
@@ -150,7 +150,7 @@ sub _globstar($$;$) {
             return keys %found_files;
         } elsif ('**' eq $pattern) {
             my %found_files;
-            foreach my $directory (bsd_glob $current, $flags) {
+            foreach my $directory (bsd_glob($current, (defined $flags ? $flags : ()))) {
                 $found_files{$directory . '/'} = 1;
                 foreach my $file (_find_all $directory) {
                     $found_files{$file} = 1;
@@ -163,7 +163,7 @@ sub _globstar($$;$) {
     }
 
     # Pattern without globstar.  Just return the normal expansion.
-    return bsd_glob $current, $flags;
+    return bsd_glob($current, (defined $flags ? $flags : ()));
 }
 
 sub globstar {

-    # This is a quotemeta() that does not escape the slash and the
-    # colon.  Escaped slashes confuse bsd_glob() and escaping colons
+    # This is a quotemeta() that does not escape the slash, the
+    # colon, or period.  Escaped slashes confuse bsd_glob() and escaping colons
     # may make a full port to Windows harder.
-    $current =~ s{([\x00-\x2e\x3b-\x40\x5b-\x5e\x60\x7b-\x7f])}{\\$1}g;
+    $current =~ s{([\x00-\x2d\x3b-\x40\x5b-\x5e\x60\x7b-\x7f])}{\\$1}g;
     if ($directory ne '' && '/' ne substr $directory, -1, 1) {
         $current .= '/';
     }