1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Description: Fix "Unescaped left brace in regex is illegal here in regex" error
Origin: vendor
Author: gregor herrmann <gregoa@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'}}){
|