From: Karl Williamson <public@khwilliamson.com>
Date: Tue, 31 May 2011 15:22:13 +0000 (-0600)
Subject: reflags.t: Remove no longer applicable TODO
X-Git-Tag: accepted/trunk/20130322.191538~3992
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=686ef6c06dff0753f61e8e24b1bf5d64420396fc;p=platform%2Fupstream%2Fperl.git

reflags.t: Remove no longer applicable TODO

When this test was written, t the new 5.14 regex modifiers were
not usable in suffix notation.  That changed before 5.14 shipped,
but the test did not.
---

diff --git a/ext/re/t/reflags.t b/ext/re/t/reflags.t
index ab3a407..56763fd 100644
--- a/ext/re/t/reflags.t
+++ b/ext/re/t/reflags.t
@@ -107,14 +107,10 @@ is qr//, '(?^:)', 'no re "/d" is a no-op when not on';
 use re '/xi';
 ok "A\n\n" =~ / a.$/sm, 'use re "/xi" in combination with explicit /sm';
 {
-  local $::TODO = "test requires perl 5.16 syntax";
-  # (remove the evals, the quotes, and the ‘no warnings’ when removing the
-  # to-do notice)
-  no warnings;
   use re '/u';
-  is eval 'qr//d', '(?^:)', 'explicit /d in re "/u" scope';
+  is qr//d, '(?^ix:)', 'explicit /d in re "/u" scope';
   use re '/d';
-  is eval 'qr//u', '(?^u:)', 'explicit /u in re "/d" scope';
+  is qr//u, '(?^uix:)', 'explicit /u in re "/d" scope';
 }
 no re '/x';