From 5b3c99c010f99810b63aaa04e000fb2c8547942a Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Thu, 20 Mar 2003 11:55:01 +0000
Subject: Fix missing functions when splitting perlfunc Message-ID:
 <3E79AC15.80307@uk.radan.com>

p4raw-id: //depot/perl@19140
---
 pod/splitpod | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pod/splitpod')

diff --git a/pod/splitpod b/pod/splitpod
index fd38e51acf..0e936337e3 100755
--- a/pod/splitpod
+++ b/pod/splitpod
@@ -10,7 +10,8 @@ while (<>) {
 
     next unless /^=(?!cut)/ .. /^=cut/;
 
-    if (s/=item (\S+)/$1/) {
+    if (/=item (\S+)/ and $1 ne '*') {
+	s/=item //; 
 	#$cur = "POSIX::" . $1;
 	$next{$cur} = $1;
 	$cur = $1;
-- 
cgit v1.2.1