From 982b7cb74b4bd865e800703e51ffca34f7ee9caa Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 25 Sep 2001 20:37:14 +0000
Subject: [PATCH] skip($mess) should result in one skip.

p4raw-id: //depot/perl@12213
---
 t/test.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
     }
-- 
2.7.4