From: juna <ggl.20.jj...@spamgourmet.com>
Date: Fri, 24 Mar 2006 13:52:41 +0000 (-0800)
Subject: Fix bug in prime_env_iter where the terms of a comparison were reversed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f02a1854b11a89ea387fda8722502f6110e043dc;p=p5sagit%2Fp5-mst-13.2.git

Fix bug in prime_env_iter where the terms of a comparison were reversed
so we thought we didn't have a logical name table when we did.  Reported as:
Subject: LWP::Simple crashes on VMSperl
From: "juna" <ggl.20.jj...@spamgourmet.com>
Newsgroups: comp.os.vms,comp.lang.perl.misc
Message-ID: <1143237161.931669.48370@t31g2000cwb.googlegroups.com>

p4raw-id: //depot/perl@27808
---

diff --git a/vms/vms.c b/vms/vms.c
index 7b66106..1237be0 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -1011,7 +1011,7 @@ prime_env_iter(void)
   for (i = 0; env_tables[i]; i++) {
      if (!have_sym && (tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer) &&
          !str$case_blind_compare(&tmpdsc,&clisym)) have_sym = 1;
-     if (!have_lnm && !str$case_blind_compare(env_tables[i],&crtlenv)) have_lnm = 1;
+     if (!have_lnm && str$case_blind_compare(env_tables[i],&crtlenv)) have_lnm = 1;
   }
   if (have_sym || have_lnm) {
     long int syiitm = SYI$_MAXBUF, dviitm = DVI$_DEVNAM;