From: Jarkko Hietaniemi Date: Sat, 27 Oct 2001 17:02:30 +0000 (+0000) Subject: [no reason given] is not good. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae09e25bf0cabefb94abad78965f21106553653c;p=p5sagit%2Fp5-mst-13.2.git [no reason given] is not good. p4raw-id: //depot/perl@12709 --- diff --git a/t/op/regexp.t b/t/op/regexp.t index 6d33580..5a31696 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -69,9 +69,7 @@ while () { $expect =~ s/\\n/\n/g; $expect = $repl = '-' if $skip_amp and $input =~ /\$[&\`\']/; $skip = ($skip_amp ? ($result =~ s/B//i) : ($result =~ s/B//)); - # Certain tests don't work with utf8 (the re_test should be in UTF8) -# $skip = 1, $reason = 'utf8' -# if ($^H &= ~0x00000008) && $pat =~ /\[:\^(alnum|print|word|ascii|xdigit):\]/; + $reason = $skip_amp ? 'skipping $&' : ''; $result =~ s/B//i unless $skip; for $study ('', 'study \$subject') { $c = $iters;