[svn:parrot] r33621 - branches/testparrottest/lib/Parrot

[jkeenan]

Author: jkeenan
Date: Sun Dec  7 10:06:09 2008
New Revision: 33621

Modified:
   branches/testparrottest/lib/Parrot/Test.pm

Log:
Make syntax more readable.

Modified: branches/testparrottest/lib/Parrot/Test.pm
==============================================================================
--- branches/testparrottest/lib/Parrot/Test.pm  (original)
+++ branches/testparrottest/lib/Parrot/Test.pm  Sun Dec  7 10:06:09 2008
@@ -213,9 +213,8 @@
                 \$extra{todo}
                 if defined $extra{todo};
 
-            if ( $func =~ /_error_/ ) {
-                return _handle_error_output( $builder, $real_output, 
$expected, $desc )
-                    unless $exit_code;
+            if ( $func =~ /_error_/ and not $exit_code ) {
+                return _handle_error_output( $builder, $real_output, 
$expected, $desc );
             }
             elsif ($exit_code) {
                 $builder->ok( 0, $desc );