From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 19 Jul 2001 06:44:27 +0000 (+0000)
Subject: Integrate win32/perlhost.h from maintenance branch.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4354e59aa50852a48dc052f8920f7489b25b7752;p=p5sagit%2Fp5-mst-13.2.git

Integrate win32/perlhost.h from maintenance branch.
(Rest of $ENV{PATH} / system() fix.)

p4raw-id: //depot/perl@11412
p4raw-integrated: from //depot/maint-5.6/perl@11411 'merge in'
	win32/perlhost.h (@11400..)
---

diff --git a/win32/perlhost.h b/win32/perlhost.h
index 45ce0dd..57f4e31 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -2358,7 +2358,7 @@ CPerlHost::Getenv(const char *varname)
     dTHXo;
     if (w32_pseudo_id) {
 	char *pEnv = Find(varname);
-	if (pEnv && !*pEnv)
+	if (pEnv && *pEnv)
 	    return pEnv;
     }
     return win32_getenv(varname);