Tk Library Source Code

Artifact e3ecbd59f9b49fdaea4fe306e94a698300801e79:

Attachment "fileutil.tcl.diff" to ticket [688965ffff] added by glennjnn 2003-02-19 02:55:56.

---

*** fileutil.tcl.orig	Tue Feb 18 14:37:07 2003
--- fileutil.tcl	Tue Feb 18 14:41:23 2003
***************
*** 416,422 ****
          {r.arg  ""  "use time from ref_file"}
          {t.arg  -1  "use specified time"}
      }
!     array set params [::cmdline::getoptions args $options]
  
      # process -a and -m options
      set set_atime [set set_mtime "true"]
--- 416,423 ----
          {r.arg  ""  "use time from ref_file"}
          {t.arg  -1  "use specified time"}
      }
!     set usage ": [lindex [info level 0] 0] \[options] filename ...\noptions:"
!     array set params [::cmdline::getoptions args $options $usage]
  
      # process -a and -m options
      set set_atime [set set_mtime "true"]