From 3c7f202fc712ebc0918fd52503f466e1d8ee60be Mon Sep 17 00:00:00 2001
From: "bbaetz%student.usyd.edu.au" <>
Date: Mon, 1 Apr 2002 11:00:12 +0000
Subject: Bug 134465 - Don't die() if the admin email address doesn't match the
 regexp. r=justdave x2

---
 checksetup.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'checksetup.pl')

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);
-- 
cgit v1.2.3-24-g4f1b