Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed possible stomping of lasterr.

Browse Source
This commit is contained in:
Chris 2012-03-19 12:29:28 +00:00
parent b7b0b3e321
commit db69ca8a23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Auth.pm
View File

@ -194,7 +194,7 @@ sub valid_user {
# Is the user disabled?
if($self -> {"app"} -> user_disabled($username)) {
$self -> {"lasterr"} = "This user account has been disabled.";
$self -> {"lasterr"} .= "This user account has been disabled.";
return undef;
}
@ -241,7 +241,7 @@ sub valid_user {
return undef;
}
$self -> {"lasterr"} = "Invalid username or password specified.";
$self -> {"lasterr"} .= "Invalid username or password specified.";
# Authentication failed.
return undef;