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); |
11 our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf &default); |
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 } |
|
18 |
|
19 sub default($$) { |
|
20 return defined $_[1] ? $_[1] : $_[0]; |
17 } |
21 } |
18 |
22 |
19 sub barf(@) { die Dumper @_ } |
23 sub barf(@) { die Dumper @_ } |
20 |
24 |
21 sub cat($) { |
25 sub cat($) { |