diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-26 08:25:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-26 08:25:41 +0000 |
| commit | 53667d02048b0d88d2026d5388665bfad577d2d4 (patch) | |
| tree | c4b29e750719e001cb7d8cb8c24bce5fa5056555 /lib | |
| parent | d175a3f045fc637f1a2ebcb20d3386cf109302c4 (diff) | |
| download | perl-53667d02048b0d88d2026d5388665bfad577d2d4.tar.gz | |
update Changes; tweak minor regressions
p4raw-id: //depot/perl@3272
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/AutoSplit.pm | 2 | ||||
| -rw-r--r-- | lib/File/Path.pm | 6 |
2 files changed, 2 insertions, 6 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index f8183714d7..33c0b9a03d 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -280,7 +280,7 @@ sub autosplit_file { $last_package = ''; while (<IN>) { $fnr++; - $in_pod = 1 if /^=/; + $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); # the following (tempting) old coding gives big troubles if a diff --git a/lib/File/Path.pm b/lib/File/Path.pm index a5c91feb54..729037294b 100644 --- a/lib/File/Path.pm +++ b/lib/File/Path.pm @@ -90,10 +90,6 @@ in situations where security is an issue. Tim Bunce <F<Tim.Bunce@ig.co.uk>> and Charles Bailey <F<bailey@newman.upenn.edu>> -=head1 REVISION - -Current $VERSION is 1.0401. - =cut use Carp; @@ -103,7 +99,7 @@ use Exporter (); use strict; use vars qw( $VERSION @ISA @EXPORT ); -$VERSION = "1.0401"; +$VERSION = "1.0402"; @ISA = qw( Exporter ); @EXPORT = qw( mkpath rmtree ); |