Bug 834770: testserver.pl should support uppercase URLs

r/a=LpSolit

diff --git a/testserver.pl b/testserver.pl
index a9c63787fa2d20e8541a02e68993a0c39d450c4a..d296b730f9a258022cb372f8bc1dda9d55c96a13 100755 (executable)
--- a/testserver.pl
+++ b/testserver.pl
@@ -24,7 +24,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";