equal
deleted
inserted
replaced
3 use if $ENV{DEBUG} ~~ /tools|all/ => "Smart::Comments"; |
3 use if $ENV{DEBUG} ~~ /tools|all/ => "Smart::Comments"; |
4 |
4 |
5 use strict; |
5 use strict; |
6 use warnings; |
6 use warnings; |
7 use File::Find; |
7 use File::Find; |
|
8 use Data::Dumper; |
8 use base "Exporter"; |
9 use base "Exporter"; |
9 |
10 |
10 our @EXPORT = qw(&run &verbose &find_by_devid &cat); |
11 our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf); |
11 |
12 |
12 sub run(@) { |
13 sub run(@) { |
13 system(@_); |
14 system(@_); |
14 die "$_[0] failed with exit code " . ($? >> 8) . "\n" |
15 die "$_[0] failed with exit code " . ($? >> 8) . "\n" |
15 if $?; |
16 if $?; |
16 } |
17 } |
|
18 |
|
19 sub barf(@) { die Dumper @_ } |
17 |
20 |
18 sub cat($) { |
21 sub cat($) { |
19 my $fh = new IO::File $_[0] |
22 my $fh = new IO::File $_[0] |
20 or die "Can't open $_[0]: $!\n"; |
23 or die "Can't open $_[0]: $!\n"; |
21 return(<$fh>) if wantarray; |
24 return(<$fh>) if wantarray; |