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 (file)
--- 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);