Skip to content

bugzilla
bugzilla
Commit 4d434656 authored by myk%mozilla.org's avatar myk%mozilla.org
Browse files
Options

Fix for bug 136506: work-around taint error on Perl 5.005.

Patch by Davidy Avery <daa@rm.incc.net>. 2x r=myk
parent 20c30bdc
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
createaccount.cgi
View file @ 4d434656
...@@ -63,6 +63,7 @@ my $realname = trim($::FORM{'realname'}); ...@@ -63,6 +63,7 @@ my $realname = trim($::FORM{'realname'});
if (defined($login)) { if (defined($login)) {
# We've been asked to create an account. # We've been asked to create an account.
CheckEmailSyntax($login); CheckEmailSyntax($login);
trick_taint($login);
$vars->{'login'} = $login; $vars->{'login'} = $login;
if (!ValidateNewUser($login)) { if (!ValidateNewUser($login)) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment