From f02a1854b11a89ea387fda8722502f6110e043dc Mon Sep 17 00:00:00 2001 From: juna Date: Fri, 24 Mar 2006 05:52:41 -0800 Subject: [PATCH] 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" Newsgroups: comp.os.vms,comp.lang.perl.misc Message-ID: <1143237161.931669.48370@t31g2000cwb.googlegroups.com> p4raw-id: //depot/perl@27808 --- vms/vms.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vms/vms.c b/vms/vms.c index 7b661065dc..1237be017a 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; -- 2.34.1