diff options
| author | Steve Hay <SteveHay@planit.com> | 2003-09-29 12:50:23 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-09-29 11:14:27 +0000 |
| commit | 279b5f1a612874b608bbd09f6635e256c67090a7 (patch) | |
| tree | a144370eb4a16b41cba4b9a85d021d7a6bee97e2 /pod/splitpod | |
| parent | ddffceb7d688de00c74f6c81d16019f39be53dc8 (diff) | |
| download | perl-279b5f1a612874b608bbd09f6635e256c67090a7.tar.gz | |
Fix broken splitpod program
Message-ID: <3F780E6F.3020704@uk.radan.com>
p4raw-id: //depot/perl@21386
Diffstat (limited to 'pod/splitpod')
| -rwxr-xr-x | pod/splitpod | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/pod/splitpod b/pod/splitpod index 0e936337e3..ff60ddc085 100755 --- a/pod/splitpod +++ b/pod/splitpod @@ -11,14 +11,13 @@ while (<>) { next unless /^=(?!cut)/ .. /^=cut/; if (/=item (\S+)/ and $1 ne '*') { + my $item = $1; s/=item //; - #$cur = "POSIX::" . $1; - $next{$cur} = $1; - $cur = $1; + $next{$cur} = $item; + $cur = $item; $syn{$cur} .= $_; next; } else { - #s,L</,L<POSIX/,g; s,L</,L<perlfunc/,g; push @{$pod{$cur}}, $_ if $cur; } |