dougm 01/11/09 10:01:53
Modified: perl-framework/Apache-Test/lib/Apache Test.pm
Log:
minor noise shrinkage
Revision Changes Path
1.31 +3 -2 httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm
Index: Test.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- Test.pm 2001/11/09 17:53:21 1.30
+++ Test.pm 2001/11/09 18:01:53 1.31
@@ -121,8 +121,9 @@
# tryint to emulate a dual variable (ala errno)
unless ($meets_condition) {
- push @SkipReasons, "no reason given" unless @SkipReasons;
- print "1..0 # skipped: " . join(', ', @SkipReasons) . "\n";
+ my $reason = join ', ',
+ @SkipReasons ? @SkipReasons : "no reason given";
+ print "1..0 # skipped: $reason\n";
exit; #XXX: Apache->exit
}
}
