From 65afddcff0a209a8ec61f214228eb125b98444ee Mon Sep 17 00:00:00 2001
From: Martin Pitt <martin.pitt@ubuntu.com>
Date: Sun, 5 Aug 2007 21:16:26 +0200
Subject: [PATCH] backup-getfiles: default to ~

---
 backup-getfiles | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 $_;
-- 
2.39.5