changeset 0 | c0faaa882cf6 |
child 3 | 1b975c58c5bf |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SI/tools.pm Thu Jan 14 20:50:54 2010 +0100 @@ -0,0 +1,14 @@ +package SI::tools; + +use strict; +use warnings; +use base "Exporter"; +our @EXPORT = qw(&run); + +sub run(@) { + system(@_); + die "$_[0] failed with exit code " . $? >> 8 . "\n" + if $?; +} + +1;