Change 11401 by gsar@moonru on 2001/07/17 21:31:31
thinko in change#11400 (duh)
Affected files ...
... //depot/maint-5.6/perl/win32/perlhost.h#11 edit
Differences ...
==== //depot/maint-5.6/perl/win32/perlhost.h#11 (text) ====
Index: perl/win32/perlhost.h
--- perl/win32/perlhost.h.~1~ Tue Jul 17 15:45:05 2001
+++ perl/win32/perlhost.h Tue Jul 17 15:45:05 2001
@@ -2329,7 +2329,7 @@
dTHXo;
if (w32_pseudo_id) {
char *pEnv = Find(varname);
- if (pEnv && !*pEnv)
+ if (pEnv && *pEnv)
return pEnv;
}
return win32_getenv(varname);
End of Patch.
