From 4d4346560206611d36a2456e629fc41b7cb85595 Mon Sep 17 00:00:00 2001
From: "myk%mozilla.org" <>
Date: Wed, 17 Apr 2002 09:55:10 +0000
Subject: Fix for bug 136506: work-around taint error on Perl 5.005. Patch by
 Davidy Avery <daa@rm.incc.net>. 2x r=myk

---
 createaccount.cgi | 1 +
 1 file changed, 1 insertion(+)

(limited to 'createaccount.cgi')

diff --git a/createaccount.cgi b/createaccount.cgi
index aaec3b679..9f87f4612 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)) {
-- 
cgit v1.2.3-24-g4f1b