forked from Lainports/opnsense-ports
25 lines
830 B
Tcl
25 lines
830 B
Tcl
--- tcl/tooledit.tcl.orig 2016-06-25 02:19:12 UTC
|
|
+++ tcl/tooledit.tcl
|
|
@@ -1,4 +1,4 @@
|
|
-#!/usr/bin/wish
|
|
+#!/usr/bin/env wish8.6
|
|
#
|
|
# Copyright: 2009-2012
|
|
# Author: Dewey Garrett <dgarrett@panix.com>
|
|
@@ -345,14 +345,14 @@ proc ::tooledit::watch {args} {
|
|
switch $args {
|
|
start {
|
|
set ::te(mtime) $mtime
|
|
- set ::te(md5sum) [eval exec md5sum $::te(filename)]
|
|
+ set ::te(md5sum) [eval exec md5 $::te(filename)]
|
|
}
|
|
stop {return}
|
|
default {
|
|
if {$mtime > $::te(mtime)} {
|
|
set ::te(mtime) $mtime
|
|
set md5sum $::te(md5sum)
|
|
- set ::te(md5sum) [eval exec md5sum $::te(filename)]
|
|
+ set ::te(md5sum) [eval exec md5 $::te(filename)]
|
|
# no message if file contents unchanged
|
|
if {"$md5sum" != "$::te(md5sum)"} {
|
|
::tooledit::message changed
|