develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
jkeenan
Date:
December 7, 2008 19:46
Subject:
[svn:parrot] r33642 - branches/testparrottest/lib/Parrot
Message ID:
20081208034613.22453CB9AF@x12.develooper.com
Author: jkeenan
Date: Sun Dec  7 19:46:11 2008
New Revision: 33642

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

Log:
Remove commented-out debugging code.


Modified: branches/testparrottest/lib/Parrot/Test.pm
==============================================================================
--- branches/testparrottest/lib/Parrot/Test.pm	(original)
+++ branches/testparrottest/lib/Parrot/Test.pm	Sun Dec  7 19:46:11 2008
@@ -588,14 +588,6 @@
 sub _run_test_file {
     local $SIG{__WARN__} = \&_report_odd_hash;
     my ( $func, $code, $expected, $desc, %extra ) = @_;
-#my $incoming_desc_status;
-#if ($desc) {
-#    $incoming_desc_status++;
-#    print STDERR "desc:  $desc\n";
-#} else {
-#    print STDERR "desc is Perl-false\n";
-#}
-
     my $path_to_parrot = path_to_parrot();
     my $parrot = File::Spec->join( File::Spec->curdir(), 'parrot' . $PConfig{exe} );
 
@@ -607,13 +599,6 @@
         ( undef, my $file, my $line ) = caller();
         $desc = "($file line $line)";
     }
-#unless ($incoming_desc_status) {
-#    if ($desc) {
-#        print STDERR "desc is now:  $desc\n";
-#    } else {
-#        print STDERR "desc is still Perl-false\n";
-#    }
-#}
 
     # $test_no will be part of temporary file
     my $test_no = $builder->current_test() + 1;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About