[svn:parrot] r18988 - trunk/lib/Parrot

[bernhard]

Author: bernhard
Date: Wed Jun 13 12:45:11 2007
New Revision: 18988

Modified:
   trunk/lib/Parrot/Test.pm

Log:
Minor beautification in Parrot::Test


Modified: trunk/lib/Parrot/Test.pm
==============================================================================
--- trunk/lib/Parrot/Test.pm    (original)
+++ trunk/lib/Parrot/Test.pm    Wed Jun 13 12:45:11 2007
@@ -593,8 +593,6 @@
             my $meth        = $parrot_test_map{$func};
             my $real_output = slurp_file($out_f);
 
-       # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg 
) if ( keys %extra );
-
             unlink $out_f unless $ENV{POSTMORTEM};
 
             # set a TODO for Test::Builder to find
@@ -689,7 +687,6 @@
             # set a TODO for Test::Builder to find
             my $call_pkg = $builder->exported_to() || '';
 
-       # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg 
) if ( keys %extra );
             local *{ $call_pkg . '::TODO' } = \$extra{todo}
                 if defined $extra{todo};
 
@@ -697,7 +694,7 @@
             $builder->diag("'$cmd' failed with exit code $exit_code")
                 if $exit_code and not $pass;
 
-            unless ( $ENV{POSTMORTEM} ) {
+            if ( ! $ENV{POSTMORTEM} ) {
                 unlink $out_f;
             }
 
@@ -759,7 +756,7 @@
                 # restore prior level, just in case.
                 $builder->level($level);
             }
-            }
+        }
     }
 
     # XXX this is broken WRT todo tests
@@ -929,7 +926,7 @@
 
 sub report_odd_hash {
     my $warning = shift;
-    if ( $warning =~ /Odd number of elements in hash assignment/ ) {
+    if ( $warning =~ m/Odd number of elements in hash assignment/ ) {
         require Carp;
         my @args = DB::uplevel_args();
         shift @args;