The "constant sub redefined" warning can't be disabled.

[perl5.git] / vms / munchconfig.c

diff --git a/vms/munchconfig.c b/vms/munchconfig.c
index 158de3c..ccbf638 100644 (file)
--- a/vms/munchconfig.c
+++ b/vms/munchconfig.c
@@ -30,7 +30,7 @@
 #endif
 
 /* The biggest line we can read in from a file */
-#define LINEBUFFERSIZE 400
+#define LINEBUFFERSIZE 1024
 #define NUMTILDESUBS 30
 #define NUMCONFIGSUBS 1000
 #define TOKENBUFFERSIZE 80
@@ -78,7 +78,7 @@ main(int argc, char *argv[])
   /* Any tag/value pairs on the command line? */
   if (argc > 3) {
     int i;
-    char WorkString[80]; 
+    char WorkString[LINEBUFFERSIZE]; 
     for (i=3; i < argc && argv[i]; i++) {
       
       /* Local copy */
@@ -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 {