Importing IPC-MorseSignals-0.15.tar.gz

[perl/modules/IPC-MorseSignals.git] / samples / bench.pl

diff --git a/samples/bench.pl b/samples/bench.pl
index 2f7daaec9087dbe983f60ce1d511d7ef44b3ae82..9bd146e43a2776edfd64f1ab41c46af35e292568 100755 (executable)
--- 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;