18 lines
590 B
Plaintext
18 lines
590 B
Plaintext
--- all.tcl Mon Jan 21 12:55:22 2002
|
|
+++ all.tcl Mon Jan 28 14:30:41 2002
|
|
@@ -122,4 +122,5 @@
|
|
# import the auto_path from the parent interp, so "package require" works
|
|
$c eval {
|
|
+ set ::argv0 [pSet ::argv0]
|
|
set ::tcllibModule [pSet module]
|
|
set auto_path [pSet auto_path]
|
|
--- modules/comm/comm.test Mon Jun 10 19:14:56 2002
|
|
+++ modules/comm/comm.test Sun Feb 23 11:25:48 2003
|
|
@@ -29,5 +29,5 @@
|
|
|
|
makeFile {
|
|
- puts [set fh [open ~/foo w]] $argv ; close $fh
|
|
+ puts [set fh [open [pwd]/TemporaryFile w]] $argv ; close $fh
|
|
|
|
source [lindex $argv 0].tcl ; # load 'comm'
|