Description: Fix warnings with Perl 5.42
  Possible precedence problem between ! and string eq at /usr/share/perl5/AnyEvent/Yubico.pm line 69.
  Possible precedence problem between ! and string eq at /usr/share/perl5/AnyEvent/Yubico.pm line 125.
  Possible precedence problem between ! and string eq at /usr/share/perl5/AnyEvent/Yubico.pm line 128.
  Possible precedence problem between ! and string eq at /usr/share/perl5/AnyEvent/Yubico.pm line 141.
  Possible precedence problem between ! and string eq at /usr/share/perl5/AnyEvent/Yubico.pm line 142.
Origin: vendor
Bug-Debian: https://bugs.debian.org/1113734
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-09-01
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=169438
Bug: https://rt.cpan.org/Ticket/Display.html?id=169438

--- a/lib/AnyEvent/Yubico.pm
+++ b/lib/AnyEvent/Yubico.pm
@@ -66,7 +66,7 @@
 		$params->{timestamp} = 1;
 	}
 
-	if($self->{sign_request} and !$self->{api_key} eq '') {
+	if($self->{sign_request} and $self->{api_key} ne '') {
 		$params->{h} = $self->sign($params);
 	}
 
@@ -122,10 +122,10 @@
 				return;
 			}
 
-			if(! $self->{api_key} eq '') {
+			if($self->{api_key} ne '') {
 				my $signature = $response->{h};
 				delete $response->{h};
-				if(! $signature eq $self->sign($response)) {
+				if($signature ne $self->sign($response)) {
 					$response->{status} = "BAD_RESPONSE_SIGNATURE";
 				}
 			}
@@ -138,8 +138,8 @@
 			} else {
 				#Definitive response, return it.
 				if($response->{status} eq "OK") {
-					$inner_var->croak("Response nonce does not match!") if(! $nonce eq $response->{nonce});
-					$inner_var->croak("Response OTP does not match!") if(! $otp eq $response->{otp});
+					$inner_var->croak("Response nonce does not match!") if($nonce ne $response->{nonce});
+					$inner_var->croak("Response OTP does not match!") if($otp ne $response->{otp});
 				}
 
 				$inner_var->send($response);