Change 33767 by [EMAIL PROTECTED] on 2008/04/30 09:31:53
A skip() function is missing, to get this test pass with miniperl
Affected files ...
... //depot/perl/t/op/pat.t#311 edit
Differences ...
==== //depot/perl/t/op/pat.t#311 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#310~33752~ 2008-04-26 15:06:23.000000000 -0700
+++ perl/t/op/pat.t 2008-04-30 02:31:53.000000000 -0700
@@ -2038,7 +2038,7 @@
$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 @@
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";
End of Patch.
