Author: coke
Date: Wed Jul 13 07:47:57 2005
New Revision: 8615
Modified:
trunk/languages/tcl/t/harness
Log:
Whoops. weren't *always* running with --gc-debug, only sometimes.
Modified: trunk/languages/tcl/t/harness
==============================================================================
--- trunk/languages/tcl/t/harness (original)
+++ trunk/languages/tcl/t/harness Wed Jul 13 07:47:57 2005
@@ -22,7 +22,9 @@ my @files;
# Per Leo on 18APR2005, run the test suite with --gc-debug
if ($ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/) {
- $ENV{TEST_PROG_ARGS} .= " --gc-debug";
+ $ENV{TEST_PROG_ARGS} .= " --gc-debug ";
+} elsif (! $ENV{TEST_PROG_ARGS} ) {
+ $ENV{TEST_PROG_ARGS} = " --gc-debug ";
}
if ( grep { /^--files$/ } @ARGV ) {
