Patch for bug 235175: replaces ::FORM from createaccount.cgi with CGI based methods that are mod_perl compatible; r=gerv; a=justdave.

1 files changed, 2 insertions, 3 deletions

diff --git a/createaccount.cgi b/createaccount.cgi
index 22b8129e9..6c624b0ba 100755
--- a/createaccount.cgi
+++ b/createaccount.cgi
@@ -32,7 +32,6 @@ require "CGI.pl";
 
 # Shut up misguided -w warnings about "used only once":
 use vars qw(
-  %FORM
   $template
   $vars
 );
@@ -54,11 +53,11 @@ Bugzilla->logout();
 my $cgi = Bugzilla->cgi;
 print $cgi->header();
 
-my $login = $::FORM{'login'};
+my $login = $cgi->param('login');
 
 if (defined($login)) {
     # We've been asked to create an account.
-    my $realname = trim($::FORM{'realname'});
+    my $realname = trim($cgi->param('realname'));
     CheckEmailSyntax($login);
     $vars->{'login'} = $login;