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});