diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-02-19 19:54:52 +0200 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 12:51:42 +0000 |
| commit | d516a115cc96334486070e15a6babcd1278d8de9 (patch) | |
| tree | 590f1929dc6a081deeb2172c4f6674a11c4e5f61 /pod/buildtoc | |
| parent | 156620fa44a712d84367040dea35ac6eae776347 (diff) | |
| download | perl-d516a115cc96334486070e15a6babcd1278d8de9.tar.gz | |
retry [PATCH] 5.004_59: the perlhist.pod etc
p4raw-id: //depot/perl@557
Diffstat (limited to 'pod/buildtoc')
| -rw-r--r-- | pod/buildtoc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index d657d68c84..bd880c379d 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -12,6 +12,7 @@ sub output ($); perllol perltoot perlobj perltie perlbot perlipc perldebug perldiag perlsec perltrap perlstyle perlpod perlbook perlembed perlapio perlxs perlxstut perlguts perlcall + perlhist ); for (@pods) { s/$/.pod/ } @@ -171,7 +172,7 @@ sub podset { output $_; nl(); next; } - if (s/^=item (.*)\n/$1/) { + if (s/^=item ([^=].*)\n/$1/) { next if $pod eq 'perldiag'; s/^\s*\*\s*$// && next; s/^\s*\*\s*//; |