diff -r aecda2763079 -r 4e3753b998a9 SI/tools.pm --- a/SI/tools.pm Mon Jan 18 22:55:10 2010 +0100 +++ b/SI/tools.pm Tue Jan 19 14:49:43 2010 +0100 @@ -5,9 +5,10 @@ use strict; use warnings; use File::Find; +use Data::Dumper; use base "Exporter"; -our @EXPORT = qw(&run &verbose &find_by_devid &cat); +our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf); sub run(@) { system(@_); @@ -15,6 +16,8 @@ if $?; } +sub barf(@) { die Dumper @_ } + sub cat($) { my $fh = new IO::File $_[0] or die "Can't open $_[0]: $!\n";