From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 30 Apr 2008 09:31:53 +0000 (+0000)
Subject: A skip() function is missing, to get this test pass with miniperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=987aaf079b1e0f705c83c2fbadd8415047dad879;p=p5sagit%2Fp5-mst-13.2.git

A skip() function is missing, to get this test pass with miniperl

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

diff --git a/t/op/pat.t b/t/op/pat.t
index 5ff4b92..1e84532 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -2038,7 +2038,7 @@ print "ok 683\n" if @a == 9 && "@a" eq "f o o \n $a $b b a r";
 
 $test = 687;
 
-# Force scalar context on the patern match
+# Force scalar context on the pattern match
 sub ok ($;$) {
     my($ok, $name) = @_;
     my $todo = $TODO ? " # TODO $TODO" : '';
@@ -2052,6 +2052,17 @@ sub ok ($;$) {
     return $ok;
 }
 
+sub skip {
+    my $why = shift;
+    my $n    = @_ ? shift : 1;
+    for (1..$n) {
+        print "ok $test # skip: $why\n";
+        $test++;
+    }
+    local $^W = 0;
+    last SKIP;
+}
+
 {
     # Check that \x## works. 5.6.1 and 5.005_03 fail some of these.
     $x = "\x4e" . "E";