File: mime.tcl.rej

package info (click to toggle)
tcllib 1.10-dfsg-3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 17,708 kB
  • ctags: 6,122
  • sloc: tcl: 106,354; ansic: 9,205; sh: 8,707; xml: 1,766; yacc: 753; makefile: 115; perl: 84; f90: 84; python: 33; ruby: 13; php: 11
file content (18 lines) | stat: -rw-r--r-- 576 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
@@ -2410,13 +2410,12 @@
 	    }
 	    append result $line\n
 	}
-
     
-    # Trim off last \n, since the above code has the side-effect
-    # of adding an extra \n to the encoded string and return the result.
-
-    set result [string range $result 0 end-1]
+        # Trim off last \n, since the above code has the side-effect
+        # of adding an extra \n to the encoded string and return the result.
+        set result [string range $result 0 end-1]
     }
+
     # If the string ends in space or tab, replace with =xx
 
     set lastChar [string index $result end]