From: myk%mozilla.org <>
Date: Wed, 17 Apr 2002 09:55:10 +0000 (+0000)
Subject: Fix for bug 136506: work-around taint error on Perl 5.005.
X-Git-Tag: bugzilla-2.16rc1~112
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4d4346560206611d36a2456e629fc41b7cb85595;p=thirdparty%2Fbugzilla.git

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 aaec3b6796..9f87f46128 100755
--- 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)) {