Changeset 7736 in josm for trunk/geticons.pl

Timestamp:

2014-11-19T22:46:34+01:00 (10 years ago)

Author:

stoecker

Message:

exclude some recently removed icons from distribution

File:

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

trunk/geticons.pl

@@ -43 +43 @@
         ++$icons{$img};
       }
-      if($l =~ /ImageProvider\.get\(\"([^\"]*?)\"\)/)
+      if($l =~ /ImageProvider(?:\.get)?\(\"([^\"]*?)\"\)/)
       {
         my $i = $1;
+        $i = "styles/standard/$i" if $i eq "misc/no_icon.png";
         ++$icons{$i};
       }