diff options
| author | juna <ggl.20.jj...@spamgourmet.com> | 2006-03-24 05:52:41 -0800 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-04-15 06:05:44 +0000 |
| commit | f02a1854b11a89ea387fda8722502f6110e043dc (patch) | |
| tree | 1a3853531d48cb16a883a8a3675476a5e29ff078 /vms | |
| parent | 597c27e224ae9143b61cd7cff67a1f838d9723e8 (diff) | |
| download | perl-f02a1854b11a89ea387fda8722502f6110e043dc.tar.gz | |
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
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |