EntrezGene & Sequence: Fixed new "unescaped left brace in regex" warn…

…ing from Perl 5.22
bioperl · Dec 14, 2015 · a9b0183 · a9b0183
1 parent 1fc7879
commit a9b0183
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/Bio/ASN1/EntrezGene.pm b/lib/Bio/ASN1/EntrezGene.pm
@@ -312,7 +312,7 @@ sub _parse
         elsif($data->{$id}) { $data->{$id} = [$data->{$id}, $value] } # hash value has a second terminal value now!
         else { $data->{$id} = $value } # the first terminal value
       }
-      elsif($self->{input} =~ /\G{/cg)
+      elsif($self->{input} =~ /\G\{/cg)
       {
         $self->{depth}++;
         push(@{$data->{$id}}, $self->_parse());

diff --git a/lib/Bio/ASN1/Sequence.pm b/lib/Bio/ASN1/Sequence.pm
@@ -305,7 +305,7 @@ sub _parse
         elsif($data->{$id}) { $data->{$id} = [$data->{$id}, $value] } # hash value has a second terminal value now!
         else { $data->{$id} = $value } # the first terminal value
       }
-      elsif($self->{input} =~ /\G{/cg)
+      elsif($self->{input} =~ /\G\{/cg)
       {
         $self->{depth}++;
         push(@{$data->{$id}}, $self->_parse());