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
