From: Andy Dougherty <doughera@lafayette.edu>
Date: Wed, 14 Jun 2000 13:33:32 +0000 (-0400)
Subject: [ID 20000614.003] 5.6.0 File/Glob.pm incompatibility
X-Git-Tag: accepted/trunk/20130322.191538~34778^2~64
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e9163ef5399af2fb180763780e7820ee1b8b8a15;p=platform%2Fupstream%2Fperl.git

[ID 20000614.003] 5.6.0 File/Glob.pm incompatibility
Message-Id: <Pine.SOL.4.10.10006141332220.3643-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/cfgperl@6274
---

diff --git a/ext/File/Glob/Glob.pm b/ext/File/Glob/Glob.pm
index 98ee34d..57bfa0d 100644
--- a/ext/File/Glob/Glob.pm
+++ b/ext/File/Glob/Glob.pm
@@ -138,6 +138,9 @@ sub csh_glob {
     $pat = $_ unless defined $pat;
 
     # extract patterns
+    $pat =~ s/^\s+//;	# Protect against empty elements in
+    $pat =~ s/\s+$//;	# things like < *.c> and <*.c >.
+			# These alone shouldn't trigger ParseWords.
     if ($pat =~ /\s/) {
         # XXX this is needed for compatibility with the csh
 	# implementation in Perl.  Need to support a flag