backup-getfiles: default to ~

diff --git a/backup-getfiles b/backup-getfiles
index e577e282292cec0d5a6a9c31e075cfcb9660470c..f0c418d7d0dd7f54264641715bdc46e84be75940 100755 (executable)
--- a/backup-getfiles
+++ b/backup-getfiles
@@ -54,7 +54,7 @@ if( $opt_n ) {
 
 $term = $opt_0 ? "\0" : "\n";
 
-$dir = $ARGV[0] || '/';
+$dir = $ARGV[0] || $ENV{'HOME'} || '/';
 foreach (glob $dir) {
     if (-d $_) {
         filelist $_;