--- 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];
 }