Changeset 18737 in josm
- Timestamp:
- 2023-05-30T15:12:14+02:00 (16 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/scripts/TestHTTPS.pl
r14920 r18737 33 33 for my $e ($xpc->findnodes(".//j:*", $entry)) 34 34 { 35 if($e->textContent =~ /^http:\/\/( .*?)(:\d+)?[\/]/)35 if($e->textContent =~ /^http:\/\/([^ ]+?)(:\d+)?[\/]/) 36 36 { 37 37 my $u = $1; … … 72 72 } 73 73 } 74 if($line =~ /http:\/\/( .*?)(:\d+)?[\/]/)74 if($line =~ /http:\/\/([^ ]+?)(:\d+)?[\/]/) 75 75 { 76 76 $urls{$1}{$name}++;
Note:
See TracChangeset
for help on using the changeset viewer.