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
Move "required development tools" section from top-level README into
[mkws-moved-to-github.git]
/
test
/
bin
/
bomb.pl
diff --git
a/test/bin/bomb.pl
b/test/bin/bomb.pl
index
4ce8590
..
0f434d0
100755
(executable)
--- a/
test/bin/bomb.pl
+++ b/
test/bin/bomb.pl
@@
-1,12
+1,11
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# Copyright (c) 2014 IndexData ApS. http://indexdata.com
+# Copyright (c) 2014 Index Data ApS. http://indexdata.com
#
# bomb.pl - wrapper to stop a process after N seconds
#
use Getopt::Long;
use POSIX ":sys_wait_h";
#
# bomb.pl - wrapper to stop a process after N seconds
#
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;
+ BSD::Resource::setrlimit("RLIMIT_CPU", $timeout, 2*$timeout) or die "Cannot set CPU limit: $!\n";
+};
+if ($@) {
+ warn "WARNING: things would go more nicely with the BSD::Resource package\n";
+}
+
#
# use fork/exec instead system()
#
# use fork/exec instead system()