Importing IPC-MorseSignals-0.03.tar.gz

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

diff --git a/samples/bench.pl b/samples/bench.pl
index 852c09f283be486f70ed7db1a52145d930d11076..45b485b901706a12db19ad53675077f7bc8ca76f 100755 (executable)
--- 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;