projects
/
mkws-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
finish debugging
[mkws-moved-to-github.git]
/
test
/
bin
/
bomb.pl
diff --git
a/test/bin/bomb.pl
b/test/bin/bomb.pl
index
4ce8590
..
bcc8ec1
100755
(executable)
--- a/
test/bin/bomb.pl
+++ b/
test/bin/bomb.pl
@@
-6,7
+6,6
@@
use Getopt::Long;
use POSIX ":sys_wait_h";
use Getopt::Long;
use POSIX ":sys_wait_h";
-use BSD::Resource qw/setrlimit/;
use strict;
use warnings;
use strict;
use warnings;
@@
-41,7
+40,14
@@
die usage if !@system;
# set CPU limit, in case the alarm handler will
# be ignored
# 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::Resource;
+ 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()
#
# use fork/exec instead system()