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

p4raw-id: //depot/perl@33767

1 files changed, 12 insertions, 1 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index 5ff4b9218d..1e84532872 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";