From 279b5f1a612874b608bbd09f6635e256c67090a7 Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Mon, 29 Sep 2003 12:50:23 +0100
Subject: Fix broken splitpod program Message-ID:
 <3F780E6F.3020704@uk.radan.com>

p4raw-id: //depot/perl@21386
---
 pod/splitpod | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'pod')

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;
     }
-- 
cgit v1.2.1