File: 10_avoid-direct-changes.patch

package info (click to toggle)
ewipe 1.2.0-10
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 604 kB
  • sloc: tcl: 5,289; sh: 8; makefile: 4
file content (31 lines) | stat: -rw-r--r-- 887 bytes parent folder | download | duplicates (2)
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
30
31
Description: avoid direct changes in upstream source code.
             The original changes was done by Masayuki Hatta
             in 1.2.0-4 revision (2001-06-10).
Author: Joao Eriberto Mota Filho <eriberto@debian.org>
Last-Update: 2016-08-25
Index: ewipe-1.2.0/ewipe
===================================================================
--- ewipe-1.2.0.orig/ewipe
+++ ewipe-1.2.0/ewipe
@@ -27,7 +27,7 @@ exec wish "$0" "--" "$@"
 #     set PATH /usr/local/lib/ewipe               #
 #                                                 #
 
-set PATH .
+set PATH /usr/lib/ewipe
 
 ###################################################
 
@@ -45,6 +45,12 @@ if {[info tclversion] < 7.6} {
     exit
 }
 
+# enabling kanji handling (Tcl 8.3 or later)
+if {[info tclversion] > 8.2} {
+     proc kanji {args} {}
+     tk useinputmethods 1
+}
+
 # check arguments for ewipe
 
 proc argvcheck {} {