This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bug fix for munchconfig (turned up by CXX)
authorPeter Prymmer <PPrymmer@factset.com>
Tue, 25 Jul 2000 18:59:16 +0000 (11:59 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 26 Jul 2000 04:32:32 +0000 (04:32 +0000)
Message-ID: <Pine.OSF.4.10.10007251805350.294719-100000@aspara.forte.com>

p4raw-id: //depot/perl@6440

vms/munchconfig.c

index 158de3c..82768db 100644 (file)
@@ -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 {