equal
deleted
inserted
replaced
6 our @EXPORT = qw(&run &verbose); |
6 our @EXPORT = qw(&run &verbose); |
7 use if $ENV{DEBUG} ~~ /tools|all/ => "Smart::Comments"; |
7 use if $ENV{DEBUG} ~~ /tools|all/ => "Smart::Comments"; |
8 |
8 |
9 sub run(@) { |
9 sub run(@) { |
10 system(@_); |
10 system(@_); |
11 die "$_[0] failed with exit code " . $? >> 8 . "\n" |
11 die "$_[0] failed with exit code " . ($? >> 8) . "\n" |
12 if $?; |
12 if $?; |
13 } |
13 } |
14 |
14 |
15 my $last = "\n"; |
15 my $last = "\n"; |
16 sub verbose(@) { |
16 sub verbose(@) { |