From: Martin Pitt <martin.pitt@ubuntu.com>
Date: Sun, 5 Aug 2007 19:16:26 +0000 (+0200)
Subject: backup-getfiles: default to ~
X-Git-Url: https://piware.de/gitweb/?p=bin.git;a=commitdiff_plain;h=65afddcff0a209a8ec61f214228eb125b98444ee

backup-getfiles: default to ~
---

diff --git a/backup-getfiles b/backup-getfiles
index e577e28..f0c418d 100755
--- 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 $_;