From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 25 Sep 2001 20:37:14 +0000 (+0000)
Subject: skip($mess) should result in one skip.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=982b7cb74b4bd865e800703e51ffca34f7ee9caa;p=p5sagit%2Fp5-mst-13.2.git

skip($mess) should result in one skip.

p4raw-id: //depot/perl@12213
---

diff --git a/t/test.pl b/t/test.pl
index c7c9908..029d80f 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -110,7 +110,8 @@ sub fail {
 # Note: can't pass multipart messages since we try to
 # be compatible with Test::More::skip().
 sub skip {
-    my ($mess, $n) = @_;
+    my $mess = shift;
+    my $n    = @_ ? shift : 1;
     for (1..$n) {
 	ok(1, "# skip:", $mess);
     }