| CC: | ANDK [...] cpan.org |
| Subject: | Unescaped left brace in regex is deprecated here |
With perl 5.27.8 test.t fails:
...
not ok 17 - scripts/parse.data.pl runs without error
# Failed test 'scripts/parse.data.pl runs without error'
# at t/test.t line 38.
not ok 18 - scripts/parse.html.pl runs without error
# Failed test 'scripts/parse.html.pl runs without error'
# at t/test.t line 38.
not ok 19 - scripts/parse.isa.pl runs without error
# Failed test 'scripts/parse.isa.pl runs without error'
# at t/test.t line 38.
...
not ok 23 - scripts/parse.xml.bare.pl runs without error
# Failed test 'scripts/parse.xml.bare.pl runs without error'
# at t/test.t line 38.
...
Unfortunately there's no more diagnostics, so I patched (see attachment) and now I get:
...
# Failed test 'scripts/parse.data.pl runs without error'
# at t/test.t line 38.
# Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/^(.+)\. Attributes: ({ <-- HERE .*})$/ at /opt/perl-5.27.8/lib/site_perl/5.27.8/Tree/DAG_Node.pm line 1086.
# Failed test 'scripts/parse.html.pl runs without error'
# at t/test.t line 38.
# Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/^(.+)\. Attributes: ({ <-- HERE .*})$/ at /opt/perl-5.27.8/lib/site_perl/5.27.8/Tree/DAG_Node.pm line 1086.
# Failed test 'scripts/parse.isa.pl runs without error'
# at t/test.t line 38.
# Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/^(.+)\. Attributes: ({ <-- HERE .*})$/ at /opt/perl-5.27.8/lib/site_perl/5.27.8/Tree/DAG_Node.pm line 1086.
t/test.t .. 23/?
# Failed test 'scripts/parse.xml.bare.pl runs without error'
# at t/test.t line 38.
# Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/^(.+)\. Attributes: ({ <-- HERE .*})$/ at /opt/perl-5.27.8/lib/site_perl/5.27.8/Tree/DAG_Node.pm line 1086.
...
| Subject: | graphiz2-diag.patch |
diff --git a/t/test.t b/t/test.t
index 4709b99..e44966c 100644
--- a/t/test.t
+++ b/t/test.t
@@ -35,7 +35,8 @@ for my $key (sort keys %script)
@stderr = grep{! /Insecure (?:\$ENV\{PATH}|dependency)/} split(/\n/, $stderr);
$stderr = '' if ($#stderr < 0);
- ok(length($stderr) == 0, "$script{$key} runs without error");
+ ok(length($stderr) == 0, "$script{$key} runs without error")
+ or diag $stderr;
}
done_testing($count);