[get-flash-videos] 01/01: add deprecated-left-brace-in-regex.patch

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository get-flash-videos.

commit 5bc6c0894f2c6afb232891b752ea3717f564cf4e
Author: Damyan Ivanov <dmn at debian.org>
Date:   Mon Nov 27 10:23:33 2017 +0000

    add deprecated-left-brace-in-regex.patch
---
 debian/patches/deprecated-left-brace-in-regex.patch | 21 +++++++++++++++++++++
 debian/patches/series                               |  1 +
 2 files changed, 22 insertions(+)

diff --git a/debian/patches/deprecated-left-brace-in-regex.patch b/debian/patches/deprecated-left-brace-in-regex.patch
new file mode 100644
index 0000000..d4e99c0
--- /dev/null
+++ b/debian/patches/deprecated-left-brace-in-regex.patch
@@ -0,0 +1,21 @@
+Description: fix deprecation warning about unescaped left brace in regex
+ $ perl -c lib/FlashVideo/RTMPDownloader.pm
+ Unescaped left brace in regex is deprecated here (and will be fatal in Perl
+ 5.30), passed through in regex; marked by <-- HERE in m/^[A-F0-9]{ <-- HERE
+ ,2}(?:\s+[A-F0-9]{2})*\s*$/ at lib/FlashVideo/RTMPDownloader.pm line 222.
+ lib/FlashVideo/RTMPDownloader.pm syntax OK
+Author: Damyan Ivanov <dmn at debian.org>
+Forwarded: https://github.com/monsieurvideo/get-flash-videos/pull/219
+Bug: https://github.com/monsieurvideo/get-flash-videos/pull/219
+
+--- a/lib/FlashVideo/RTMPDownloader.pm
++++ b/lib/FlashVideo/RTMPDownloader.pm
+@@ -219,7 +219,7 @@ sub run {
+         $self->progress;
+       } elsif(/\012$/) {
+         for my $l(split /\012/) {
+-          if($l =~ /^[A-F0-9]{,2}(?:\s+[A-F0-9]{2})*\s*$/) {
++          if($l =~ /^[A-F0-9]{0,2}(?:\s+[A-F0-9]{2})*\s*$/) {
+             debug $l;
+           } elsif($l =~ /Download complete/) {
+             $complete = 1;
diff --git a/debian/patches/series b/debian/patches/series
index dcf76f5..6658a7a 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 00_fix_manpage_warning.diff
 use_libcrypt-blowfish-perl.diff
 no-network-tests.patch
+deprecated-left-brace-in-regex.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/get-flash-videos.git