This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix missing functions when splitting perlfunc
[perl5.git] / pod / splitpod
index fd38e51..0e93633 100755 (executable)
@@ -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;