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 (file)
--- 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);
     }