|
Lines 829-835
Link Here
|
| 829 |
|
829 |
|
| 830 |
set tfck [ info exists trace_file ] |
830 |
set tfck [ info exists trace_file ] |
| 831 |
|
831 |
|
| 832 |
if { $tfck == 0 } { set trace_file "/tmp/xpvm.trace.$user" } |
832 |
if { $tfck == 0 } { |
|
|
833 |
if {$tcl_platform(platform) != "unix"} { |
| 834 |
puts stderr "fatal error, secure temp file creation not available" |
| 835 |
exit 1 |
| 836 |
} |
| 837 |
catch {exec /bin/tempfile} trace_file |
| 838 |
if {[file exist $trace_file] != 1} { |
| 839 |
puts stderr "fatal error, secure temp file creation not available" |
| 840 |
exit 1 |
| 841 |
} |
| 842 |
} |
| 833 |
|
843 |
|
| 834 |
$CTRL.file_entry insert 0 $trace_file |
844 |
$CTRL.file_entry insert 0 $trace_file |
| 835 |
|
845 |
|
