From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 May 2000 21:15:58 +0000 (+0000)
Subject: small bug in change#6144; remove random \xA0 character that snuck
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=413e5597fa15080977e13a1ad58f104914a75a31;p=p5sagit%2Fp5-mst-13.2.git

small bug in change#6144; remove random \xA0 character that snuck
in via change#6145

p4raw-link: @6145 on //depot/perl: e03d20b37534005291cfa8844300128459541e0e
p4raw-link: @6144 on //depot/perl: 0eb0485562acdea1555bc121d0e989d63a918d26

p4raw-id: //depot/perl@6155
---

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index 6b3eae8..bb20372 100644
--- a/lib/AutoSplit.pm
+++ b/lib/AutoSplit.pm
@@ -178,8 +178,9 @@ sub autosplit_lib_modules{
 	    $_ = catfile($1, $2);
 	}
 	s|\\|/|g;		# bug in ksh OS/2
+	s#^lib/##s; # incase specified as lib/*.pm
 	my($lib) = catfile(curdir(), "lib");
-	s#^$lib\W+##s; # incase specified as lib/*.pm
+	s#^$lib\W+##s; # incase specified as ./lib/*.pm
 	if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs
 	    my ($dir,$name) = (/(.*])(.*)/s);
 	    $dir =~ s/.*lib[\.\]]//s;
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 30b264c..eb085f5 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -894,7 +894,7 @@ sub fetch_para {
 
     for(;;) {
 	# Skip embedded PODs 
-	while ($lastline =~ /^=/) {
+	while ($lastline =~ /^=/) {
     	    while ($lastline = <$FH>) {
 	    	last if ($lastline =~ /^=cut\s*$/);
 	    }