diff options
| author | jenn <jenn> | 1999-09-01 23:15:41 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 1999-09-01 23:15:41 (GMT) |
| commit | a856dda16823c2c7b5e1648d3d70e8e9b73322e2 (patch) | |
| tree | 24a1c80aa7fda92ebe3e1235f657557aec68c3e8 | |
| parent | b1a8d8eea5094a31668e0f08b83515a9e2828acb (diff) | |
| download | tcl-a856dda16823c2c7b5e1648d3d70e8e9b73322e2.zip tcl-a856dda16823c2c7b5e1648d3d70e8e9b73322e2.tar.gz tcl-a856dda16823c2c7b5e1648d3d70e8e9b73322e2.tar.bz2 | |
Process command-line arguments only ::tcltest doesn't have a
child namespace (requires that command-line args are processed
in that namespace)
| -rw-r--r-- | library/tcltest/tcltest.tcl | 6 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 50dbe6f..92e85fe 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -12,7 +12,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.12 1999/08/31 21:43:46 jenn Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.13 1999/09/01 23:15:41 jenn Exp $ package provide tcltest 1.0 @@ -1655,7 +1655,9 @@ proc ::tcltest::threadReap {} { # Initialize the constraints and set up command line arguments namespace eval tcltest { ::tcltest::initConstraints - ::tcltest::processCmdLineArgs + if {[namespace children ::tcltest] == {}} { + ::tcltest::processCmdLineArgs + } } return diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl index 50dbe6f..92e85fe 100644 --- a/library/tcltest1.0/tcltest.tcl +++ b/library/tcltest1.0/tcltest.tcl @@ -12,7 +12,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.12 1999/08/31 21:43:46 jenn Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.13 1999/09/01 23:15:41 jenn Exp $ package provide tcltest 1.0 @@ -1655,7 +1655,9 @@ proc ::tcltest::threadReap {} { # Initialize the constraints and set up command line arguments namespace eval tcltest { ::tcltest::initConstraints - ::tcltest::processCmdLineArgs + if {[namespace children ::tcltest] == {}} { + ::tcltest::processCmdLineArgs + } } return |