1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Description: Fix warnings with Perl 5.42
Possible precedence problem between ! and numeric eq (==) at /build/bioperl-1.7.8/blib/lib/Bio/AlignIO/Handler/GenericAlignHandler.pm line 98.
Possible precedence problem between ! and numeric eq (==) at /build/bioperl-1.7.8/blib/lib/Bio/SeqIO/Handler/GenericRichSeqHandler.pm line 379.
Origin: vendor
Bug-Debian: https://bugs.debian.org/1113735
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-09-03
Forwarded: https://github.com/bioperl/bioperl-live/pull/404
Bug: https://github.com/bioperl/bioperl-live/pull/404
Applied-Upstream: https://github.com/bioperl/bioperl-live/commit/2b622d6a291b95126f3da6d3799a23d8ac7d1ef1
--- a/lib/Bio/AlignIO/Handler/GenericAlignHandler.pm
+++ b/lib/Bio/AlignIO/Handler/GenericAlignHandler.pm
@@ -95,7 +95,7 @@
my $data;
if (scalar(@ids)) {
for my $id (@ids) {
- if (!index($id, '-')==0) {
+ if (index($id, '-')!=0) {
$id = '-'.$id ;
}
$data->{$id} = $self->{'_params'}->{$id} if (exists $self->{'_params'}->{$id});
--- a/lib/Bio/SeqIO/Handler/GenericRichSeqHandler.pm
+++ b/lib/Bio/SeqIO/Handler/GenericRichSeqHandler.pm
@@ -376,7 +376,7 @@
my ($self, @ids) = @_;
my %data;
for my $id (@ids) {
- if (!index($id, '-')==0) {
+ if (index($id, '-')!=0) {
$id = '-'.$id ;
}
$data{$id} = $self->{'_params'}->{$id} if (exists $self->{'_params'}->{$id});
|
