diff options
| -rwxr-xr-x | t/op/pat.t | 13 |
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"; |