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

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Wed Feb 24 03:06:47 2010
New Revision: 44443
URL: https://trac.parrot.org/parrot/changeset/44443

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

Modified:
   trunk/t/op/calling.t

Modified: trunk/t/op/calling.t
==============================================================================
--- trunk/t/op/calling.t	Wed Feb 24 02:57:22 2010	(r44442)
+++ trunk/t/op/calling.t	Wed Feb 24 03:06:47 2010	(r44443)
@@ -1406,9 +1406,14 @@
 ok
 OUTPUT
 
-my @todo = ( todo => 'broken with JIT (TT #983)' )
-    if ( defined $ENV{TEST_PROG_ARGS} and
-        $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/ );
+my @todo = (
+    defined $ENV{TEST_PROG_ARGS}
+        and
+    $ENV{TEST_PROG_ARGS} =~ /--runcore=jit/
+)
+    ? ( todo => 'broken with JIT (TT #983)' )
+    : ();
+
 pir_output_is( <<'CODE', <<'OUTPUT', "clone_key_arg", @todo );
 .sub main :main
     foo()