perl warnings

[mkws-moved-to-github.git] / test / bin / bomb.pl

diff --git a/test/bin/bomb.pl b/test/bin/bomb.pl
index 4ce8590..9e0f06b 100755 (executable)
--- a/test/bin/bomb.pl
+++ b/test/bin/bomb.pl
@@ -41,7 +41,7 @@ die usage if !@system;
 
 # set CPU limit, in case the alarm handler will
 # be ignored
-setrlimit(RLIMIT_CPU, $timeout, 2*$timeout) or die "Cannot set CPU limit: $!\n";
+setrlimit("RLIMIT_CPU", $timeout, 2*$timeout) or die "Cannot set CPU limit: $!\n";
 
 #
 # use fork/exec instead system()