Changeset 13384 in josm for trunk/scripts


Ignore:
Timestamp:
2018-02-04T16:44:26+01:00 (21 months ago)
Author:
stoecker
Message:

see #13158 - fix geticons.pl to no skip some checks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/geticons.pl

    r13282 r13384  
    152152        my $f = <FILE>;
    153153        close FILE;
    154         while($f =~ /style\s*=\s*["']([^"']+)["']/g)
     154        for my $sep ("'", '"')
    155155        {
    156           for my $x (split(/\s*;\s*/, $1))
     156          while($f =~ /style\s*=\s*$sep([^$sep]+)$sep/g)
    157157          {
    158             print STDERR "$ifile: Style starts with minus: $x\n" if $x =~ /^-/;
     158            for my $x (split(/\s*;\s*/, $1))
     159            {
     160              print STDERR "$ifile: Style starts with minus: $x\n" if $x =~ /^-/;
     161            }
    159162          }
    160163        }
Note: See TracChangeset for help on using the changeset viewer.