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

Avoid dereferencing $ENV{HOME} if it is undefined

Browse source
This commit is contained in:
Will Aoki 2019-04-03 09:48:15 -06:00
parent 74defd4812
commit b42cb89fdd
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

@ -598,7 +598,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) {
warn "Loading defaults from $file\n"; warn "Loading defaults from $file\n";
open my $FILE, '<', $file open my $FILE, '<', $file