Index: trunk/scripts/TestHTTPS.pl
===================================================================
--- trunk/scripts/TestHTTPS.pl	(revision 14919)
+++ trunk/scripts/TestHTTPS.pl	(revision 14920)
@@ -33,5 +33,5 @@
     for my $e ($xpc->findnodes(".//j:*", $entry))
     {
-      if($e->textContent =~ /^http:\/\/(.*?)[\/:]/)
+      if($e->textContent =~ /^http:\/\/(.*?)(:\d+)?[\/]/)
       {
         my $u = $1;
@@ -72,5 +72,5 @@
       }
     }
-    if($line =~ /http:\/\/(.*?)[\/:]/)
+    if($line =~ /http:\/\/(.*?)(:\d+)?[\/]/)
     {
       $urls{$1}{$name}++;
@@ -93,4 +93,5 @@
 
 open OUTFILE,">","josm_https.txt" or die "Could not open output file";
+open OUTFILENH,">","josm_no_https.txt" or die "Could not open no-https output file";
 
 sub doprint($)
@@ -150,10 +151,17 @@
     doprint "* $url [$code $mess]: $i\n";
   };
-  if($@ && $@ !~ "(--Alarm--|Connection refused)")
+  if($@)
   {
-    my $e = $@;
+    my $e = $@||"";
     $e =~ s/[\r\n]//g;
     $e =~ s/ at scripts\/TestHTTPS.pl .*//;
-    doprint "* $url [Error $e] :$i\n";
+    if($@ !~ "(--Alarm--|Connection refused)")
+    {
+      doprint "* $url [Error $e] :$i\n";
+    }
+    elsif($@)
+    {
+      print OUTFILENH "* $url [$e] :$i\n";
+    }
   }
 }