projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Document toke.c.
[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