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

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Wed Feb 24 03:22:56 UTC 2010


Author: jkeenan
Date: Wed Feb 24 03:22:53 2010
New Revision: 44447
URL: https://trac.parrot.org/parrot/changeset/44447

Log:
[codingstd] perlcritic complained about variable declaration in conditional statement.  Fixed.

Modified:
   trunk/t/pmc/sub.t

Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t	Wed Feb 24 03:14:57 2010	(r44446)
+++ trunk/t/pmc/sub.t	Wed Feb 24 03:22:53 2010	(r44447)
@@ -27,6 +27,8 @@
 
 =cut
 
+my @todo;
+
 pasm_output_is( <<'CODE', <<'OUTPUT', "PASM subs - invokecc" );
     .const 'Sub' P0 = "func"
 
@@ -835,9 +837,14 @@
 main
 OUTPUT
 
-my @todo = ( todo => 'broken with JIT (TT #983)' )
-    if ( defined $ENV{TEST_PROG_ARGS} and
-        $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ );
+ at todo = (
+    defined $ENV{TEST_PROG_ARGS}
+        and
+    $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/
+)
+    ? ( todo => 'broken with JIT (TT #983)' )
+    : ();
+
 pir_output_is( <<'CODE', <<'OUTPUT', "caller introspection via interp", @todo );
 .sub main :main
 .include "interpinfo.pasm"


More information about the parrot-commits mailing list