Prepending (instead of replacing with) the pwd is safer.

[perl5.git] / t / test.pl

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