[med-svn] [libbio-graphics-perl] 04/05: Add a patch to fix an "Unescaped left brace in regex is illegal here in regex" error.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libbio-graphics-perl.

commit 1f1fc0697f13d6f5a4ea723315faef65236a3e5b
Author: gregor herrmann <gregoa at debian.org>
Date:   Thu Aug 3 11:59:07 2017 -0400

    Add a patch to fix an "Unescaped left brace in regex is illegal here in regex" error.
    
    Thanks: autopkgtest-pkg-perl
---
 debian/patches/series                     |  1 +
 debian/patches/unescaped_left_brace.patch | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..e481e7c
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+unescaped_left_brace.patch
diff --git a/debian/patches/unescaped_left_brace.patch b/debian/patches/unescaped_left_brace.patch
new file mode 100644
index 0000000..5c4b20a
--- /dev/null
+++ b/debian/patches/unescaped_left_brace.patch
@@ -0,0 +1,18 @@
+Description: Fix "Unescaped left brace in regex is illegal here in regex" error
+Origin: vendor
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2017-08-03
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=122700
+Bug: https://rt.cpan.org/Ticket/Display.html?id=122700
+
+--- a/lib/Bio/Graphics/DrawTransmembrane.pm
++++ b/lib/Bio/Graphics/DrawTransmembrane.pm
+@@ -119,7 +119,7 @@
+ 	my @numeric = ('helix_height','helix_width','loop_width','vertical_padding','horizontal_padding','short_length','medium_loop_length','long_loop_length','short_loop_limit','long_loop_limit','n_terminal_height','membrane_offset','text_offset','n_term_offset','c_term_offset');
+ 
+ 	foreach (@numeric){
+-		die "\nParameter $_ must be numeric.\n\n" if exists $self->{$_} && $self->{$_} =~ /-{?}\D+/;
++		die "\nParameter $_ must be numeric.\n\n" if exists $self->{$_} && $self->{$_} =~ /-\{?}\D+/;
+ 	}
+ 
+ 	foreach (keys %{$self->{'loop_labels'}}){

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-med/libbio-graphics-perl.git