diff --git a/Webperl/AuthMethod.pm b/Webperl/AuthMethod.pm index c427867..8dc328b 100644 --- a/Webperl/AuthMethod.pm +++ b/Webperl/AuthMethod.pm @@ -402,9 +402,9 @@ sub apply_policy { } } - if(scalar(%policy)) { - $policy{"policy_order"} = $self -> {"set_policy_order"}; - return \%policy; + if(scalar(%{$failures})) { + $failures -> {"policy_order"} = $self -> {"set_policy_order"}; + return $failures; } return undef; }