00dani/stow
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Avoid dereferencing $ENV{HOME} if it is undefined (#32)

Browse source 
Avoid dereferencing $ENV{HOME} if it is undefined
This commit is contained in:
Adam Spiers 2019-06-28 00:41:55 +01:00 committed by GitHub
commit 5f875009f8
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bin/stow.in
View file

@ -662,7 +662,11 @@ sub check_packages {
#============================================================================= #=============================================================================
sub get_config_file_options { sub get_config_file_options {
my @defaults = (); 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) { if (-r $file) {
open my $FILE, '<', $file open my $FILE, '<', $file
or die "Could not open $file for reading\n"; or die "Could not open $file for reading\n";