Source: po4a
Version: 0.46
Severity: normal
Tags: patch
Another package with warnings like
Unescaped left brace in regex is deprecated, passed through in regex; ...
when using perl 5.22.
Patch attached.
Cheers, Roderich
-- System Information:
Debian Release: stretch/sid
APT prefers wily
APT policy: (500, 'wily'), (500, 'buildd-unstable'), (500, 'unstable'), (1,
'buildd-experimental'), (1, 'experimental')
Architecture: amd64 (x86_64)
Foreign Architectures: i386
Kernel: Linux 4.1.0-rc7 (SMP w/4 CPU cores)
Locale: LANG=en_US.utf8, LC_CTYPE=en_US.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: systemd (via /run/systemd/system)
-- no debconf information
--- po4a-0.46-ORIG/lib/Locale/Po4a/Man.pm 2015-06-11 08:54:38.167212553 +0200
+++ po4a-0.46/lib/Locale/Po4a/Man.pm 2015-06-11 08:56:30.848811981 +0200
@@ -2230,7 +2230,7 @@
# Lines are continued on \ at the end of line
$buffer .= $line;
} else {
- if ($line =~ s/\s*T{\s*$//) { # start of text block
+ if ($line =~ s/\s*T\{\s*$//) { # start of text block
$in_textblock = 1;
$postline = $&; # save the `T{' to be outputed below
} elsif ($buffer eq "" && $line ne ""){ # single line data
--- po4a-0.46-ORIG/lib/Locale/Po4a/Sgml.pm 2015-06-11 09:01:50.673002762 +0200
+++ po4a-0.46/lib/Locale/Po4a/Sgml.pm 2015-06-11 09:03:26.726190003 +0200
@@ -672,9 +672,9 @@
}
}
}
- $prolog =~ s/<!--{PO4A-ent-beg-(.*?)}(.*?){PO4A-ent-end}-->/<!ENTITY % $1 SYSTEM "$2">/g;
+ $prolog =~ s/<!--\{PO4A-ent-beg-(.*?)\}(.*?)\{PO4A-ent-end\}-->/<!ENTITY % $1 SYSTEM "$2">/g;
# Unprotect undefined inclusions, and die of them
- $prolog =~ s/{PO4A-percent}/%/sg;
+ $prolog =~ s/\{PO4A-percent\}/%/sg;
if ($prolog =~ /%([^;\s]*);/) {
die wrap_mod("po4a::sgml",
dgettext("po4a",
--- po4a-0.46-ORIG/lib/Locale/Po4a/TeX.pm 2015-06-11 09:03:58.978583209 +0200
+++ po4a-0.46/lib/Locale/Po4a/TeX.pm 2015-06-11 09:05:56.623997700 +0200
@@ -1168,7 +1168,7 @@
# environment contains an un-closed bracket)
if ( ($closed and ($line =~ /^\s*$/ or
$line =~ /^\s*$RE_VERBATIM\s*$/))
- or (in_verbatim(@env) and $line =~ /^\s*\Q$ESCAPE\Eend{$env[-1]}\s*$/)
+ or (in_verbatim(@env) and $line =~ /^\s*\Q$ESCAPE\Eend\{$env[-1]\}\s*$/)
) {
# An empty line. This indicates the end of the current
# paragraph.
