Bug 834770: testserver.pl should support uppercase URLs

r/a=LpSolit

diff --git a/testserver.pl b/testserver.pl
index fc3b5b0ab99ece08911e332301088a0526a754ad..f00f551f964ec46ca978cfa8313cca065759c62c 100755 (executable)
--- a/testserver.pl
+++ b/testserver.pl
@@ -25,7 +25,7 @@ my $datadir = bz_locations()->{'datadir'};
 eval "require LWP; require LWP::UserAgent;";
 my $lwp = $@ ? 0 : 1;
 
-if ((@ARGV != 1) || ($ARGV[0] !~ /^https?:/))
+if ((@ARGV != 1) || ($ARGV[0] !~ /^https?:/i))
 {
     say "Usage: $0 <URL to this Bugzilla installation>";
     say "e.g.:  $0 http://www.mycompany.com/bugzilla";