[svn:parrot] r46051 - trunk/t/op

fperrad at svn.parrot.org fperrad at svn.parrot.org
Tue Apr 27 07:57:24 UTC 2010


Author: fperrad
Date: Tue Apr 27 07:57:24 2010
New Revision: 46051
URL: https://trac.parrot.org/parrot/changeset/46051

Log:
fix warning : Use of uninitialized value $ENV{"TEST_PROG_ARGS"} in pattern match (m//)

Modified:
   trunk/t/op/annotate-old.t

Modified: trunk/t/op/annotate-old.t
==============================================================================
--- trunk/t/op/annotate-old.t	Tue Apr 27 07:43:19 2010	(r46050)
+++ trunk/t/op/annotate-old.t	Tue Apr 27 07:57:24 2010	(r46051)
@@ -25,7 +25,7 @@
 
 TODO: {
     local $TODO = q|fails in fast runcore - TT #1135|
-        if $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/;
+        if ($ENV{TEST_PROG_ARGS} || '') =~ /--runcore=fast/;
 
 pir_error_output_like( <<CODE, <<OUTPUT, 'unhandled exception from loaded function');
 .sub main :main


More information about the parrot-commits mailing list