diff options
author | bbaetz%student.usyd.edu.au <> | 2002-04-01 11:00:12 +0000 |
---|---|---|
committer | bbaetz%student.usyd.edu.au <> | 2002-04-01 11:00:12 +0000 |
commit | 3c7f202fc712ebc0918fd52503f466e1d8ee60be (patch) | |
tree | 59e97354f2b6aa5060e7f7526459cc30029d004b /checksetup.pl | |
parent | e924425a45dd374fc1a124c0ae59133c1e3726dd (diff) | |
download | bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar.gz bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar.bz2 bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.tar.xz bugs-3c7f202fc712ebc0918fd52503f466e1d8ee60be.zip |
Bug 134465 - Don't die() if the admin email address doesn't match the
regexp.
r=justdave x2
Diffstat (limited to 'checksetup.pl')
-rwxr-xr-x | checksetup.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/checksetup.pl b/checksetup.pl index d98676073..bc8f9601e 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -1678,7 +1678,10 @@ if ($sth->rows == 0) { unless ($login =~ /$mailcheckexp/) { print "\nThe login address is invalid:\n"; print "$mailcheck\n"; - die "Please try again\n"; + print "You can change this test on the params page once checksetup has successfully\n"; + print "completed.\n\n"; + # Go round, and ask them again + $login = ""; } } $login = $dbh->quote($login); |