Fix broken splitpod program

Message-ID: <3F780E6F.3020704@uk.radan.com>

p4raw-id: //depot/perl@21386

diff --git a/pod/splitpod b/pod/splitpod
index 0e93633..ff60ddc 100755 (executable)
--- 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;
     }