[svn:parrot] rev 7873 - trunk/languages/tcl/t

[coke]

Author: coke
Date: Mon Apr 18 19:13:19 2005
New Revision: 7873

Modified:
   trunk/languages/tcl/t/harness
Log:
avoid uninit warning



Modified: trunk/languages/tcl/t/harness
==============================================================================
--- trunk/languages/tcl/t/harness       (original)
+++ trunk/languages/tcl/t/harness       Mon Apr 18 19:13:19 2005
@@ -21,7 +21,7 @@
 
 # Per Leo on 18APR2005, run the test suite with --gc-debug
 
-if ($ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/) {
+if ($ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/) {
   $ENV{TEST_PROG_ARGS} .= " --gc-debug"; 
 }