X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=test%2Fbin%2Fbomb.pl;fp=test%2Fbin%2Fbomb.pl;h=bff7f687b20ba0f7e682a02da9591dbbd9fe5b8e;hb=d0c8fb0f03f7bac469fc2543d93b84433256700b;hp=9e0f06bde88b09645fc2d39bfc8e046055a314c4;hpb=3cd19a824e5fb1dbb255346f314a76c7d2f973c4;p=mkws-moved-to-github.git

diff --git a/test/bin/bomb.pl b/test/bin/bomb.pl
index 9e0f06b..bff7f68 100755
--- a/test/bin/bomb.pl
+++ b/test/bin/bomb.pl
@@ -6,7 +6,6 @@
 
 use Getopt::Long;
 use POSIX ":sys_wait_h";
-use BSD::Resource qw/setrlimit/;
 
 use strict;
 use warnings;
@@ -41,7 +40,14 @@ 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";
+eval {
+    require BSD::Resource2;
+    setrlimit("RLIMIT_CPU", $timeout, 2*$timeout) or die "Cannot set CPU limit: $!\n";
+};
+if ($@) {
+    warn "Please install the package BSD::Resource!\n\n$@\n";
+}
+
 
 #
 # use fork/exec instead system()