From 4bc5302aa9ad04cec6442e472dc1d313187dee04 Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Wed, 5 Jun 2013 11:24:20 +0100
Subject: [PATCH] make some tests TODO under -DPERL_NO_COW

Since it's Copy-on-Write that fixed those tests, we expect them to fail
without COW.
---
 t/re/pat_rt_report.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index 9f057e6..9b53bae 100644
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -1147,6 +1147,8 @@ EOP
 
     {
         # [perl #4289] First mention $& after a match
+	local $::TODO = "these tests fail without Copy-on-Write enabled"
+	    if $Config{ccflags} =~ /PERL_NO_COW/;
         fresh_perl_is(
             '$_ = "abc"; /b/g; $_ = "hello"; print eval q|$&|, "\n"',
             "b\n", {}, '$& first mentioned after match');
-- 
2.7.4