diff options
| author | Steve Hay <SteveHay@planit.com> | 2003-03-20 11:55:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-02 20:41:46 +0000 |
| commit | 5b3c99c010f99810b63aaa04e000fb2c8547942a (patch) | |
| tree | 0afe748a27734311cd29c94a19f45787799b9896 /pod/splitpod | |
| parent | 5fc52bc68f8bca292cb1880662c8edef5b0c54a8 (diff) | |
| download | perl-5b3c99c010f99810b63aaa04e000fb2c8547942a.tar.gz | |
Fix missing functions when splitting perlfunc
Message-ID: <3E79AC15.80307@uk.radan.com>
p4raw-id: //depot/perl@19140
Diffstat (limited to 'pod/splitpod')
| -rwxr-xr-x | pod/splitpod | 3 |
1 files changed, 2 insertions, 1 deletions
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; |