diff options
| -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; } |