Changeset 18737 in josm


Ignore:
Timestamp:
2023-05-30T15:12:14+02:00 (16 months ago)
Author:
stoecker
Message:

small script fix to ignore non-URLs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/TestHTTPS.pl

    r14920 r18737  
    3333    for my $e ($xpc->findnodes(".//j:*", $entry))
    3434    {
    35       if($e->textContent =~ /^http:\/\/(.*?)(:\d+)?[\/]/)
     35      if($e->textContent =~ /^http:\/\/([^ ]+?)(:\d+)?[\/]/)
    3636      {
    3737        my $u = $1;
     
    7272      }
    7373    }
    74     if($line =~ /http:\/\/(.*?)(:\d+)?[\/]/)
     74    if($line =~ /http:\/\/([^ ]+?)(:\d+)?[\/]/)
    7575    {
    7676      $urls{$1}{$name}++;
Note: See TracChangeset for help on using the changeset viewer.