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 7b661065dc2a946a05ab4f6e70a6b823532112e8..1237be017ae06732eb388c6c502c41db3b728794 100644 (file)
--- 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;