[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