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 (file)
--- 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 (executable)
--- 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*$/);
            }