diff options
Diffstat (limited to 'gnu/usr.bin/perl/win32/bin/search.pl')
| -rw-r--r-- | gnu/usr.bin/perl/win32/bin/search.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/win32/bin/search.pl b/gnu/usr.bin/perl/win32/bin/search.pl index ad74001be5f..f647b8426f3 100644 --- a/gnu/usr.bin/perl/win32/bin/search.pl +++ b/gnu/usr.bin/perl/win32/bin/search.pl @@ -47,7 +47,12 @@ $version = "950918.5"; $stripped=0; &init; -$rc_file = join('/', $ENV{'HOME'}, ".search"); +if (exists $ENV{'HOME'}) { + $rc_file = join('/', $ENV{'HOME'}, ".search"); +} +else { + $rc_file = ""; +} &check_args; @@ -621,7 +626,7 @@ sub read_rc local($line_num, $ln, $tag) = 0; local($use_default, @default) = 0; - { package magic; $ = 0; } ## turn off warnings for when we run EXPR's + { package magic; $^W= 0; } ## turn off warnings for when we run EXPR's unless (open(RC, "$file")) { $use_default=1; |