Fix warnings (#2704)
This commit is contained in:
parent
ccf170ab06
commit
5c7a69e57b
|
@ -88,12 +88,12 @@ sub parseAnd {
|
|||
my ( $r, $name ) = $obj->(@_);
|
||||
|
||||
# Case "string" (form type)
|
||||
if ( $r & ~$r ) {
|
||||
if ( $r && $r & ~$r ) {
|
||||
$str{$r}++;
|
||||
}
|
||||
else {
|
||||
return ( wantarray ? ( $r, $name ) : $r )
|
||||
unless ( $r == PE_OK );
|
||||
unless ( !$r || $r == PE_OK );
|
||||
}
|
||||
}
|
||||
my $res = %str ? join( ',', keys %str ) : PE_OK;
|
||||
|
|
|
@ -122,7 +122,7 @@ sub _findYubikey {
|
|||
}
|
||||
}
|
||||
|
||||
return $yubikey;
|
||||
return $yubikey || '';
|
||||
|
||||
}
|
||||
|
||||
|
|
|
@ -80,7 +80,7 @@ ENDKEY
|
|||
expectForm( $res, "", '/webauthn2fcheck', 'token', 'credential' );
|
||||
|
||||
my ($json) = $res->[2]->[0] =~
|
||||
m#<script type="application/init">\s*({"request"[^<]*})\s*</script>#ms;
|
||||
m#<script type="application/init">\s*(\{"request"[^<]*\})\s*</script>#ms;
|
||||
ok( $json, "Found request object in JS data" );
|
||||
$json = from_json($json);
|
||||
my $request = $json->{request};
|
||||
|
|
Loading…
Reference in New Issue