Change 11086 by jhi@alpha on 2001/07/02 13:22:30
Subject: [PATCH 5.6.1] test harness
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Mon, 2 Jul 2001 06:29:21 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Test/Harness.pm#51 edit
Differences ...
==== //depot/perl/lib/Test/Harness.pm#51 (text) ====
Index: perl/lib/Test/Harness.pm
--- perl/lib/Test/Harness.pm.~1~ Mon Jul 2 07:30:06 2001
+++ perl/lib/Test/Harness.pm Mon Jul 2 07:30:06 2001
@@ -714,6 +714,8 @@
$tot->{ok}++;
$test->{skipped}++ if $isskip;
+ $reason = '[no reason given]'
+ if $isskip and not defined $reason;
if (defined $reason and defined $test->{skip_reason}) {
# print "was: '$skip_reason' new '$reason'\n";
$test->{skip_reason} = 'various reasons'
End of Patch.
