dev-tcltk/tclx/files/tclx-8.3-argv.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

--- tclx8.3/tk/generic/tkXshell.c.argv	Mon Aug 28 23:58:00 2000
+++ tclx8.3/tk/generic/tkXshell.c	Thu Jul 19 17:24:27 2001
@@ -190,12 +190,13 @@
     fileName = NULL;
     argi = 1;
     while ((argi < argc) && (argv[argi][0] == '-')) {
-        argi++;
         if (STREQU(argv[argi], "--")) {
-            break; /* end of options */
+          argi++;
+          break; /* end of options */
         } else if (!STREQU(argv[argi], "-sync")) {
-            argi++; /* takes an argument */
+          argi++; /* takes an argument */
         }
+        argi++;
     }
     /* Parse out file name, if supplied. */
     if (argi < argc) {
@@ -210,7 +211,7 @@
         while (argi < argc) {
             argv[i++] = argv[argi++];
         }
-        argc = i+1;
+        argc = i;
     }
 #else
     /*