diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2001-05-24 18:36:42 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2001-05-24 18:36:42 +0000 |
| commit | 8bab8b19946f98d4be49345ca9c42e56674b65fb (patch) | |
| tree | bd62d7b5d463fab205d08914b30ba647eb3c8bc8 /gnu/usr.bin/perl/win32/bin | |
| parent | 483d4e680bd2a6db14835b1b4d65be33488d532b (diff) | |
merge in perl 5.6.1 with our local changes
Diffstat (limited to 'gnu/usr.bin/perl/win32/bin')
| -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; |