equal
deleted
inserted
replaced
6 use warnings; |
6 use warnings; |
7 use File::Find; |
7 use File::Find; |
8 use Data::Dumper; |
8 use Data::Dumper; |
9 use base "Exporter"; |
9 use base "Exporter"; |
10 |
10 |
11 our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf &default); |
11 our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf &def); |
12 |
12 |
13 sub run(@) { |
13 sub run(@) { |
14 system(@_); |
14 system(@_); |
15 die "$_[0] failed with exit code " . ($? >> 8) . "\n" |
15 die "$_[0] failed with exit code " . ($? >> 8) . "\n" |
16 if $?; |
16 if $?; |
17 } |
17 } |
18 |
18 |
19 sub default($$) { |
19 sub def($$) { |
20 return defined $_[1] ? $_[1] : $_[0]; |
20 return defined $_[1] ? $_[1] : $_[0]; |
21 } |
21 } |
22 |
22 |
23 sub barf(@) { die Dumper @_ } |
23 sub barf(@) { die Dumper @_ } |
24 |
24 |