This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate win32/perlhost.h from maintenance branch.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 19 Jul 2001 06:44:27 +0000 (06:44 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 19 Jul 2001 06:44:27 +0000 (06:44 +0000)
(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..)

win32/perlhost.h

index 45ce0dd..57f4e31 100644 (file)
@@ -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);