Changeset 89

Timestamp:

Dec 4, 2009 5:00:13 PM (14 years ago)

Author:

toby

Message:

# on 1999/07/21 15:12:53, toby did:
fix windows archive error

File:

• trunk/expgui (modified) (1 diff, 3 props)

trunk/expgui

@@ -474 +474 @@
             if ![file executable [file join $expgui(scriptdir) pkzip.exe]] {
                 # archive w/o pkzip
-                set files [glob -nocomplain ${expnam}!*.exp]
+                set files [glob -nocomplain ${expnam}!*.EXP]
                 if {$files == ""} {
                     set num -1
                 } else {
                     set file [lindex [lsort -decreasing $files] 0]
-                    regexp {!([0-9]+)\.EXP} [string toupper $file] a num
+                    regexp {!0*([0-9]+)\.EXP} [string toupper $file] a num
                 }
                 set file $expnam![format "%3.3d" [incr num]].EXP