Control: tag -1 patch

On Sun, Jun 18, 2017 at 11:24:13PM +0300, Niko Tyni wrote:
> On Sun, Jun 05, 2016 at 10:35:06PM +0300, Niko Tyni wrote:
> > Package: quilt
> > Version: 0.63-3
> > Severity: normal
> > User: debian-p...@lists.debian.org
> > Usertags: perl-5.24-transition
> > 
> > Building this package triggers deprecation warnings with Perl 5.24
> > (currently in experimental), and probably with Perl 5.22 (current sid)
> > too.
> > 
> >   perl -pe 'if (/\\sh{.*}/) {s:\\sh{(.*)}:<I>$1</I>:}'    \
> >        < doc/tmp/main.html > doc/quilt.html
> >   Unescaped left brace in regex is deprecated, passed through in regex; 
> > marked by <-- HERE in m/\\sh{ <-- HERE .*}/ at -e line 1.

> This is fatal in Perl 5.26 (currently in experimental), making the
> package fail to build from source. Raising the severity accordingly.

The bits in test/run were apparently fixed in 0.63-4 without a mention
on this bug, but the one in debian/rules remains. Trivial patch
attached. I've verified that this fixes builds with Perl 5.26 without
breaking them on current sid.
-- 
Niko Tyni   nt...@debian.org
>From e40c76cf84f372440cf2715bbd77e9e0ee764ab5 Mon Sep 17 00:00:00 2001
From: Niko Tyni <nt...@debian.org>
Date: Sun, 25 Jun 2017 18:23:47 +0000
Subject: [PATCH] debian/rules: fix deprecated Perl usage

Unescaped left braces in regexps were deprecated in Perl 5.22 and
became unsupported in 5.26.

Closes: #826502
---
 debian/rules | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/debian/rules b/debian/rules
index 19b680f..dbd2a7c 100755
--- a/debian/rules
+++ b/debian/rules
@@ -24,7 +24,7 @@ override_dh_auto_build:
 	mkdir -p doc/tmp
 ifeq (,$(findstring stage1,$(DEB_BUILD_PROFILES)))
 	cd doc/tmp; LC_ALL=C hevea ../main.tex ; LC_ALL=C hevea ../main.tex; LC_ALL=C hevea ../main.tex
-	perl -pe 'if (/\\sh{.*}/) {s:\\sh{(.*)}:<I>$$1</I>:}'	\
+	perl -pe 'if (/\\sh\{.*}/) {s:\\sh\{(.*)}:<I>$$1</I>:}'	\
 	     < doc/tmp/main.html > doc/quilt.html
 	LC_ALL=C perl -e '$$/ = undef; $$f=<>; $$f =~ s|<A[^>]*?HREF="[^"]*#[^"]*">(.*?)</A>|$$1|msg; print $$f;' < doc/tmp/main.html > doc/tmp/tmp.html
 	LC_ALL=C lynx doc/tmp/tmp.html -dump > doc/quilt.txt
-- 
2.13.1

Reply via email to