From 483d4e680bd2a6db14835b1b4d65be33488d532b Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Thu, 24 May 2001 18:26:20 +0000 Subject: stock perl 5.6.1 --- gnu/usr.bin/perl/vms/munchconfig.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gnu/usr.bin/perl/vms/munchconfig.c') diff --git a/gnu/usr.bin/perl/vms/munchconfig.c b/gnu/usr.bin/perl/vms/munchconfig.c index 158de3caf5d..82768db12ce 100644 --- a/gnu/usr.bin/perl/vms/munchconfig.c +++ b/gnu/usr.bin/perl/vms/munchconfig.c @@ -345,8 +345,7 @@ tilde_sub(char LineBuffer[], Translate TildeSub[], int TildeSubCount) } else { /* 'Kay, not a tilde. Is it a word character? */ - if (isalnum(LineBuffer[TildeLoop]) || (LineBuffer[TildeLoop] = - '-') || + if (isalnum(LineBuffer[TildeLoop]) || (LineBuffer[TildeLoop] == '-')) { TempTilde[TildeBufferLength++] = LineBuffer[TildeLoop]; } else { -- cgit v1.2.3