[svn:parrot] r42171 - trunk/t/pmc

[chromatic at svn.parrot.org]

Author: chromatic
Date: Fri Oct 30 04:22:25 2009
New Revision: 42171
URL: https://trac.parrot.org/parrot/changeset/42171

Log:
[t] Avoided use of uninitialized variable when checking runcore under testing.

Modified:
   trunk/t/pmc/eval.t

Modified: trunk/t/pmc/eval.t
==============================================================================
--- trunk/t/pmc/eval.t	Fri Oct 30 03:15:22 2009	(r42170)
+++ trunk/t/pmc/eval.t	Fri Oct 30 04:22:25 2009	(r42171)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2009, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -396,7 +396,7 @@
 
 TODO: {
     local $TODO = q|fails eval.thaw test in testr with Segmentation fault - TT #1142|
-        if $ENV{TEST_PROG_ARGS} =~ /--run-pbc/;
+        if defined $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} =~ /--run-pbc/;
 
 pir_output_is( <<"CODE", <<'OUTPUT', "eval.thaw" );
 .sub main :main