diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-08 21:55:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-08 21:55:32 +0000 |
| commit | e6c299c8c7a701ab02a228bf041af3efe6d81afb (patch) | |
| tree | cfd9a96536b272da925efc0b3721f2a150bbe1fb /t/test.pl | |
| parent | a109f988838e035e38e7263f74120ba65bf7bd0d (diff) | |
| download | perl-e6c299c8c7a701ab02a228bf041af3efe6d81afb.tar.gz | |
[PATCH t/test.pl ext/POSIX/t/posix.t vms/test.com] POSIX cleanup
From: Michael G Schwern <schwern@pobox.com>
Date: Thu, 8 Nov 2001 17:24:49 -0500
Message-ID: <20011108172449.A5587@blackrider>
Subject: Re: [PATCH t/test.pl ext/POSIX/t/posix.t vms/test.com] POSIX cleanup
From: "Craig A. Berry" <craigberry@mac.com>
Date: Thu, 8 Nov 2001 16:35:00 -0600
Message-Id: <a05101000b810b89c5c5a@[172.16.52.1]>
p4raw-id: //depot/perl@12906
Diffstat (limited to 't/test.pl')
| -rw-r--r-- | t/test.pl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -129,7 +129,8 @@ sub skip { my $why = shift; my $n = @_ ? shift : 1; for (1..$n) { - ok(1, "# skip:", $why); + print "ok $test # skip: $why\n"; + $test++; } local $^W = 0; last SKIP; |