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

Patch by Davidy Avery <daa@rm.incc.net>.
2x r=myk

diff --git a/createaccount.cgi b/createaccount.cgi
index aaec3b679673b66e0138bfaa0ddc0464fc275058..9f87f46128f857c04310de0895fe07f71a66f64d 100755 (executable)
--- a/createaccount.cgi
+++ b/createaccount.cgi
@@ -63,6 +63,7 @@ my $realname = trim($::FORM{'realname'});
 if (defined($login)) {
     # We've been asked to create an account.
     CheckEmailSyntax($login);
+    trick_taint($login);
     $vars->{'login'} = $login;
     
     if (!ValidateNewUser($login)) {