diff options
| author | hershey <hershey> | 1999-04-03 03:01:32 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-04-03 03:01:32 (GMT) |
| commit | d69a6863aa03d0665d5505bb11be3fe44e8115a4 (patch) | |
| tree | 1b41038f47b42daf27c0ba49b5b848c1f5320385 | |
| parent | 751b82f50bb0c8971a051252d77c16e2cbb27b4c (diff) | |
| download | tk-d69a6863aa03d0665d5505bb11be3fe44e8115a4.zip tk-d69a6863aa03d0665d5505bb11be3fe44e8115a4.tar.gz tk-d69a6863aa03d0665d5505bb11be3fe44e8115a4.tar.bz2 | |
removed windows-tk restriction on code that forked another shell--able
to make this change because bug 1495 is fixed.
| -rw-r--r-- | tests/defs.tcl | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/tests/defs.tcl b/tests/defs.tcl index bbeadfb..c7da83a 100644 --- a/tests/defs.tcl +++ b/tests/defs.tcl @@ -11,7 +11,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: defs.tcl,v 1.1.2.9 1999/04/02 18:06:43 hershey Exp $ +# RCS: @(#) $Id: defs.tcl,v 1.1.2.10 1999/04/03 03:01:32 hershey Exp $ # Initialize wish shell if {[info exists tk_version]} { @@ -812,14 +812,9 @@ catch { } close $f - # The following 2 lines cannot be run on Windows in Tk8.1b2 - # This bug is logged as a pipe bug (bugID 1495). - - if {($tcl_platform(platform) != "windows") || \ - (![info exists tk_version])} { - set f [open "|[list $tcltest tmp]" r] - close $f - } + set f [open "|[list $tcltest tmp]" r] + close $f + set ::tcltest::testConfig(stdio) 1 } catch {file delete -force tmp} |