X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=samples%2Fbench.pl;h=9bd146e43a2776edfd64f1ab41c46af35e292568;hp=2f7daaec9087dbe983f60ce1d511d7ef44b3ae82;hb=9370c8d2ab07f434272dbbddb92bdd5d8d1fe3af;hpb=db7266fa5be4347aac1d32a994d6529c7b5a4afb

diff --git a/samples/bench.pl b/samples/bench.pl
index 2f7daae..9bd146e 100755
--- a/samples/bench.pl
+++ b/samples/bench.pl
@@ -9,28 +9,29 @@ use lib qw{blib/lib t/lib};
 
 use IPC::MorseSignals::TestSuite qw/init bench cleanup/;
 
-my $diag = sub { print STDERR "@_\n" };
+sub diag { print STDERR "@_\n" };
+*IPC::MorseSignals::TestSuite::diag = *main::diag;
 my @res;
 
 init 100;
 
-bench 4,    1,   $diag, \@res;
-bench 4,    4,   $diag, \@res;
-bench 4,    16,  $diag, \@res;
-bench 4,    64,  $diag, \@res;
-bench 4,    256, $diag, \@res;
-bench 16,   1,   $diag, \@res;
-bench 16,   4,   $diag, \@res;
-bench 16,   16,  $diag, \@res;
-bench 16,   64,  $diag, \@res;
-bench 64,   1,   $diag, \@res;
-bench 64,   4,   $diag, \@res;
-bench 64,   16,  $diag, \@res;
-bench 256,  1,   $diag, \@res;
-bench 256,  4,   $diag, \@res;
-bench 1024, 1,   $diag, \@res;
+bench 4,    1,   \@res;
+bench 4,    4,   \@res;
+bench 4,    16,  \@res;
+bench 4,    64,  \@res;
+bench 4,    256, \@res;
+bench 16,   1,   \@res;
+bench 16,   4,   \@res;
+bench 16,   16,  \@res;
+bench 16,   64,  \@res;
+bench 64,   1,   \@res;
+bench 64,   4,   \@res;
+bench 64,   16,  \@res;
+bench 256,  1,   \@res;
+bench 256,  4,   \@res;
+bench 1024, 1,   \@res;
 
 cleanup;
 
-print STDERR "=== Summary ===\n";
-print STDERR "$_\n" for @res;
+diag "\n=== Summary ===";
+diag $_ for @res;