This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Avoid triggering a deprecation warnings."
authorSawyer X <xsawyerx@cpan.org>
Wed, 8 Feb 2017 12:34:31 +0000 (13:34 +0100)
committerSawyer X <xsawyerx@cpan.org>
Sun, 12 Feb 2017 10:52:01 +0000 (12:52 +0200)
This reverts commit 5ad2a0b67cdf1d90b67b991ae8708d3b9d57bad9.

We have decided to undeprecate \c. Please see:
http://www.nntp.perl.org/group/perl.perl5.porters/2017/01/msg242693.html

t/re/regex_sets.t

index 994d0a2..6a79f9d 100644 (file)
@@ -165,13 +165,7 @@ for my $char ("٠", "٥", "٩") {
        like($@, qr/^Syntax error/, '/(?[(\c]) ]\b/ should be a syntax error');
        eval { $_ = '(?[\c[]](])'; qr/$_/ };
        like($@, qr/^Syntax error/, '/(?[\c[]](])/ should be a syntax error');
-        {
-            # This block needs to go after 5.26, as it will be
-            # fatal in 5.28. But it's not fatal yet, so we ought
-            # to test it.
-            no warnings 'deprecated';
-            like("\c#", qr/(?[\c#])/, '\c# should match itself');
-        }
+       like("\c#", qr/(?[\c#])/, '\c# should match itself');
        like("\c[", qr/(?[\c[])/, '\c[ should match itself');
        like("\c\ ", qr/(?[\c\])/, '\c\ should match itself');
        like("\c]", qr/(?[\c]])/, '\c] should match itself');