Change 11400 by gsar@moonru on 2001/07/17 19:46:34
change#11399 revealed another unrelated bug; this is just a temporary
bandaid
Affected files ...
... //depot/maint-5.6/perl/win32/perlhost.h#10 edit
Differences ...
==== //depot/maint-5.6/perl/win32/perlhost.h#10 (text) ====
Index: perl/win32/perlhost.h
--- perl/win32/perlhost.h.~1~ Tue Jul 17 14:00:05 2001
+++ perl/win32/perlhost.h Tue Jul 17 14:00:05 2001
@@ -2330,12 +2330,9 @@
if (w32_pseudo_id) {
char *pEnv = Find(varname);
if (pEnv && !*pEnv)
- pEnv = Nullch;
- return pEnv;
+ return pEnv;
}
- else {
- return win32_getenv(varname);
- }
+ return win32_getenv(varname);
}
int
End of Patch.
