Avoid dereferencing $ENV{HOME} if it is undefined

1 files changed, 5 insertions, 1 deletions

diff --git a/bin/stow.in b/bin/stow.in
index 98b576e..367657a 100755
--- a/bin/stow.in
+++ b/bin/stow.in
@@ -598,7 +598,11 @@ sub check_packages {
 #=============================================================================
 sub get_config_file_options {
     my @defaults = ();
-    for my $file ("$ENV{HOME}/.stowrc", '.stowrc') {
+    my @dirlist = ('.stowrc');
+    if (defined($ENV{HOME})) {
+        unshift(@dirlist, "$ENV{HOME}/.stowrc");
+    }
+    for my $file (@dirlist) {
         if (-r $file) {
             warn "Loading defaults from $file\n";
             open my $FILE, '<', $file