1 package SI::tools;

     1 package SI::tools;

     2 

     4 

     3 use strict;

     5 use strict;

     4 use warnings;

     6 use warnings;

     5 use base "Exporter";

     7 use base "Exporter";

     6 our @EXPORT = qw(&run &verbose);

     8 our @EXPORT = qw(&run &verbose);

     8 

     9 

     9 sub run(@) {

    10 sub run(@) {

    10 	system(@_);

    11 	system(@_);

    11 	die "$_[0] failed with exit code " . ($? >> 8) . "\n"

    12 	die "$_[0] failed with exit code " . ($? >> 8) . "\n"

    12 	if $?;

    13 	if $?;