Introduce HAS_LLSEEK.

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

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index f818371..33c0b9a 100644 (file)
--- 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