X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FIPC-MorseSignals.git;a=blobdiff_plain;f=samples%2Fbench.pl;h=45b485b901706a12db19ad53675077f7bc8ca76f;hp=852c09f283be486f70ed7db1a52145d930d11076;hb=133946d2bfe0a5d47755a8f182a76e2f57b72e20;hpb=762a8a02ffc76d62c023619d0dffe451498ae2b0

diff --git a/samples/bench.pl b/samples/bench.pl
index 852c09f..45b485b 100755
--- a/samples/bench.pl
+++ b/samples/bench.pl
@@ -41,7 +41,7 @@ TRY:
    }
    close $wtr or die "$desc: close() failed : $!";
    eval {
-    local $SIG{ALRM} = sub { die 'alarm' };
+    local $SIG{ALRM} = sub { die 'timeout' };
     my $a = (int(100 * (3 * $l) / $speed) || 1);
     $a = 10 if $a > 10;
     alarm $a;