Changeset 13384 in josm for trunk/scripts

Timestamp:

2018-02-04T16:44:26+01:00 (7 years ago)

Author:

stoecker

Message:

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

File:

• trunk/scripts/geticons.pl (modified) (1 diff)

trunk/scripts/geticons.pl

@@ -152 +152 @@
         my $f = <FILE>;
         close FILE;
-        while($f =~ /style\s*=\s*["']([^"']+)["']/g)
+        for my $sep ("'", '"')
         {
-          for my $x (split(/\s*;\s*/, $1))
+          while($f =~ /style\s*=\s*$sep([^$sep]+)$sep/g)
           {
-            print STDERR "$ifile: Style starts with minus: $x\n" if $x =~ /^-/;
+            for my $x (split(/\s*;\s*/, $1))
+            {
+              print STDERR "$ifile: Style starts with minus: $x\n" if $x =~ /^-/;
+            }
           }
         }