1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Description: regexp stringification is different
Origin: vendor
Bug: https://rt.cpan.org/Ticket/Display.html?id=70002
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=70002
Bug-Debian: http://bugs.debian.org/636521
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2011-11-16
--- a/t/04re.t
+++ b/t/04re.t
@@ -27,11 +27,15 @@
########################################################
+# perldelta 5.14
+# Accept both old and new-style stringification
+my $modifiers = (qr/foobar/ =~ /\Q(?^/) ? "^" : "-xism";
+
test_out("not ok 1 - Log4perl test");
test_fail(+9);
test_diag("1st message logged wasn't what we expected:");
test_diag(" message was 'my hair is on fire!'");
-test_diag(" not like '(?-xism:tree)'");
+test_diag(" not like '(?$modifiers:tree)'");
test_diag(" (Offending log call from line ".(__LINE__+4)." in ".filename().")");
Test::Log4perl->start();
|
