diff --git a/Webperl/Block.pm b/Webperl/Block.pm index 889f96e..8a3fc2c 100644 --- a/Webperl/Block.pm +++ b/Webperl/Block.pm @@ -395,7 +395,8 @@ sub log { # user. If there is no policy in place, or the user is not logged in, # this returns an empty string. sub build_password_policy { - my $self = shift; + my $self = shift; + my $template = shift; # Anonymous user can have no policy return '' if($self -> {"session"} -> anonymous_session());