Avoid triggering a deprecation warnings.
authorAbigail <abigail@abigail.be>
Tue, 17 Jan 2017 21:21:29 +0000 (22:21 +0100)
committerAbigail <abigail@abigail.be>
Tue, 17 Jan 2017 21:55:54 +0000 (22:55 +0100)
The offending line is put in a block with "no warnings 'deprecated';".
The line can go after 5.26, as it'll be fatal in 5.28.

t/re/regex_sets.t

index 6a79f9d..994d0a2 100644 (file)
@@ -165,7 +165,13 @@ 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');
-       like("\c#", qr/(?[\c#])/, '\c# should match itself');
+        {
+            # 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');