mirror of
https://git.freebsd.org/ports.git
synced 2025-05-07 11:20:46 -04:00
18 lines
568 B
Tcl
18 lines
568 B
Tcl
--- tkcron.tcl.orig 2013-09-25 00:48:19.068508511 -0700
|
|
+++ tkcron.tcl 2013-09-25 06:10:06.670101791 -0700
|
|
@@ -1,4 +1,6 @@
|
|
-#!/usr/local/bin/wish
|
|
+#! /bin/sh
|
|
+# the next line restarts using wish \
|
|
+exec %%WISH%% $0 ${1+"$@"}
|
|
|
|
# A simple interface to ease the creation of crontab jobs
|
|
# Cedric BEUST (beust@sophia.inria.fr)
|
|
@@ -281,6 +283,7 @@
|
|
|
|
# Return the crontab string as a list
|
|
proc parseCrontabFile {str} {
|
|
+ set result ""
|
|
set crontablist [split $str \n]
|
|
set listlength [llength $crontablist]
|
|
for {set i 0} {$i < $listlength} {incr i 1} {
|