X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fwith.git;a=blobdiff_plain;f=samples%2Ffuncs.pl;h=94a414738c3a579ac7bef09c56f3e41a5367b8c4;hp=5bcfeb9005dfdd1cb57d3f3136360b3a5b8b5091;hb=9df381fa9059d0ceb298bbf49924a873b816e829;hpb=7d694e6f49e219b9c5f62d323666ca2854d51f50

diff --git a/samples/funcs.pl b/samples/funcs.pl
index 5bcfeb9..94a4147 100755
--- a/samples/funcs.pl
+++ b/samples/funcs.pl
@@ -11,7 +11,7 @@ die "no functions" unless $f;
 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/";
@@ -31,6 +31,7 @@ for (@f) {
  } else {
   $l = length($base) - 1;
   $out .= "\n" . (' ' x $l);
+  redo;
  }
 }
 $out .= "/;\n";