diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 21:15:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 21:15:58 +0000 |
| commit | 413e5597fa15080977e13a1ad58f104914a75a31 (patch) | |
| tree | 560049a5aae9c71ac16db7ccef78b1aba30bdded /lib | |
| parent | f39d0b86ee5f9f99b2300012ab6be91fafbb04e4 (diff) | |
| download | perl-413e5597fa15080977e13a1ad58f104914a75a31.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/AutoSplit.pm | 3 | ||||
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index 6b3eae8947..bb20372792 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 30b264c0a6..eb085f542f 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*$/); } |