changeset 37 | a61b92c60367 |
parent 36 | bdc967bf50d2 |
--- a/lib/SI/tools.pm Sun Jan 31 01:17:32 2010 +0100 +++ b/lib/SI/tools.pm Sun Jan 31 23:58:01 2010 +0100 @@ -8,7 +8,7 @@ use Data::Dumper; use base "Exporter"; -our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf &default); +our @EXPORT = qw(&run &verbose &find_by_devid &cat &barf &def); sub run(@) { system(@_); @@ -16,7 +16,7 @@ if $?; } -sub default($$) { +sub def($$) { return defined $_[1] ? $_[1] : $_[0]; }