| Subject: | Unescaped left brace in regex is deprecated |
This package warns when used with Perl 5.22.
# Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/
# \nzonenames:[\ \t]+\$\(TDATA\)[\ \t]*\n
# \t[\ \t]*\@\$\(AWK\)\ '
# /\^Zone/\ \{\ print\ \$\$2\ \}
# \ /\^Link/\ { <-- HERE \ print\ \$\$3\ }
# '\ \$\(TDATA\)[\ \t]*\n\n
# / at /usr/share/perl5/Time/OlsonTZ/Download.pm line 716.
Proposed patch attached.
| Subject: | 0001-Fix-regexp-syntax-for-Perl-5.22.patch |
From fc4ff87223cc97e850b62063f5555d72a7d42da5 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@debian.org>
Date: Sun, 27 Dec 2015 21:26:24 +0200
Subject: [PATCH] Fix regexp syntax for Perl 5.22
Unescaped left brace in regex is deprecated, passed through in regex
Bug-Debian: https://bugs.debian.org/809108
---
lib/Time/OlsonTZ/Download.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Time/OlsonTZ/Download.pm b/lib/Time/OlsonTZ/Download.pm
index 1fc64a7..e66c59f 100644
--- a/lib/Time/OlsonTZ/Download.pm
+++ b/lib/Time/OlsonTZ/Download.pm
@@ -711,7 +711,7 @@ sub _ensure_standard_zonenames {
\nzonenames:[\ \t]+\$\(TDATA\)[\ \t]*\n
\t[\ \t]*\@\$\(AWK\)\ '
/\^Zone/\ \{\ print\ \$\$2\ \}
- \ /\^Link/\ {\ print\ \$\$3\ }
+ \ /\^Link/\ \{\ print\ \$\$3\ }
'\ \$\(TDATA\)[\ \t]*\n\n
#x);
}
--
2.6.4