equal
deleted
inserted
replaced
5 use strict; |
5 use strict; |
6 use warnings; |
6 use warnings; |
7 use File::Find; |
7 use File::Find; |
8 use base "Exporter"; |
8 use base "Exporter"; |
9 |
9 |
10 our @EXPORT = qw(&run &verbose &find_by_devid); |
10 our @EXPORT = qw(&run &verbose &find_by_devid &cat); |
11 |
11 |
12 sub run(@) { |
12 sub run(@) { |
13 system(@_); |
13 system(@_); |
14 die "$_[0] failed with exit code " . ($? >> 8) . "\n" |
14 die "$_[0] failed with exit code " . ($? >> 8) . "\n" |
15 if $?; |
15 if $?; |
|
16 } |
|
17 |
|
18 sub cat($) { |
|
19 my $fh = new IO::File $_[0] |
|
20 or die "Can't open $_[0]: $!\n"; |
|
21 return(<$fh>) if wantarray; |
|
22 return join "", <$fh>; |
16 } |
23 } |
17 |
24 |
18 my $last = "\n"; |
25 my $last = "\n"; |
19 sub verbose(@) { |
26 sub verbose(@) { |
20 print $last eq "\n" ? "" : " " |
27 print $last eq "\n" ? "" : " " |