This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid triggering a deprecation warnings.
[perl5.git] / 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');