From: Wolfram Schneider <wosch@indexdata.dk>
Date: Fri, 27 Jun 2014 11:54:52 +0000 (+0200)
Subject: make the package BSD::Resource optional
X-Git-Tag: 1.0.0~472
X-Git-Url: http://git.indexdata.com/?p=mkws-moved-to-github.git;a=commitdiff_plain;h=d0c8fb0f03f7bac469fc2543d93b84433256700b

make the package BSD::Resource optional

You should install the package on a server, but it does
not hurt if it is missing.
---

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()