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

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

From:
jkeenan
Date:
December 5, 2008 17:02
Subject:
[svn:parrot] r33529 - branches/testparrottest/lib/Parrot
Message ID:
20081206010158.B317ACB9AF@x12.develooper.com
Author: jkeenan
Date: Fri Dec  5 17:01:57 2008
New Revision: 33529

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

Log:
Improve debugging statements.


Modified: branches/testparrottest/lib/Parrot/Test.pm
==============================================================================
--- branches/testparrottest/lib/Parrot/Test.pm	(original)
+++ branches/testparrottest/lib/Parrot/Test.pm	Fri Dec  5 17:01:57 2008
@@ -200,10 +200,12 @@
         ( undef, my $file, my $line ) = caller();
         $desc = "($file line $line)";
     }
-if ($desc) {
-    print STDERR "desc:  $desc\n";
-} else {
-    print STDERR "desc is still Perl-false\n";
+unless ($incoming_desc_status) {
+    if ($desc) {
+        print STDERR "desc:  $desc\n";
+    } else {
+        print STDERR "desc is still Perl-false\n";
+    }
 }
 
     # $test_no will be part of temporary file



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