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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
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);
|
