my @f = $f =~ /C<([^<>]+)>/g;
my %dup;
@f = sort
- grep { eval { () = prototype "CORE::$_" }; !$@ }
+ grep { eval { () = prototype "CORE::$_"; 1 } }
grep !$dup{$_}++, @f;
my $c = 10;
my $base = "my \@core = qw/";
} else {
$l = length($base) - 1;
$out .= "\n" . (' ' x $l);
+ redo;
}
}
$out .= "/;\n";