OS2::PrfDB was exploiting a bug in U32 XSUBs

[p5sagit/p5-mst-13.2.git] / lib / AutoSplit.pm

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index 471499a..f818371 100644 (file)
--- a/lib/AutoSplit.pm
+++ b/lib/AutoSplit.pm
@@ -11,7 +11,7 @@ use vars qw(
            $Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime
           );
 
-$VERSION = "1.0302";
+$VERSION = "1.0303";
 @ISA = qw(Exporter);
 @EXPORT = qw(&autosplit &autosplit_lib_modules);
 @EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
@@ -219,7 +219,7 @@ sub autosplit_file {
     while (<IN>) {
        # Skip pod text.
        $fnr++;
-       $in_pod = 1 if /^=/;
+       $in_pod = 1 if /^=\w/;
        $in_pod = 0 if /^=cut/;
        next if ($in_pod || /^=cut/);
 
@@ -356,7 +356,7 @@ EOT
        # perl downcases all filenames on VMS (which upcases all filenames) so
        # we'd better downcase the sub name list too, or subs with upper case
        # letters in them will get their .al files deleted right after they're
-       # created. (The mixed case sub name wonn't match the all-lowercase
+       # created. (The mixed case sub name won't match the all-lowercase
        # filename, and so be cleaned up as a scrap file)
        if ($Is_VMS or $Is83) {
            %outfiles = map {lc($_) => lc($_) } @outfiles;
@@ -372,7 +372,7 @@ EOT
            foreach (sort readdir(OUTDIR)){
                next unless /\.al$/;
                my($file) = "$dir/$_";
-               $file = lc $file if $Is83;
+               $file = lc $file if $Is83 or $Is_VMS;
                next if $outfiles{$file};
                print "  deleting $file\n" if ($Verbose>=2);
                my($deleted,$thistime);  # catch all versions on VMS