summaryrefslogtreecommitdiffstats
path: root/library/platform/shell.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-14 07:27:05 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-14 07:27:05 (GMT)
commit9e832d51f5cf8e1317b58eae1f0b7ded6e0b198d (patch)
tree972e1f583c8652eb1232f699c6ebdd97f45c2df4 /library/platform/shell.tcl
parent9ea2ab76f4646c44e090b45ba151a94d38b085f1 (diff)
downloadtcl-9e832d51f5cf8e1317b58eae1f0b7ded6e0b198d.zip
tcl-9e832d51f5cf8e1317b58eae1f0b7ded6e0b198d.tar.gz
tcl-9e832d51f5cf8e1317b58eae1f0b7ded6e0b198d.tar.bz2
more readable
Diffstat (limited to 'library/platform/shell.tcl')
-rw-r--r--library/platform/shell.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/library/platform/shell.tcl b/library/platform/shell.tcl
index e0a129a..d37cdcd 100644
--- a/library/platform/shell.tcl
+++ b/library/platform/shell.tcl
@@ -187,7 +187,7 @@ proc ::platform::shell::TEMP {} {
}
}
}
- if {[string compare $channel ""]} {
+ if {$channel != ""} {
return -code error "Failed to open a temporary file: $channel"
} else {
return -code error "Failed to find an unused temporary file name"