Changeset 7670 in josm for trunk/geticons.pl

Timestamp:

2014-10-29T15:58:35+01:00 (9 years ago)

Author:

stoecker

Message:

remove remaining false icon detections

File:

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

trunk/geticons.pl

@@ -35 +35 @@
       }
 
-      if($l =~ /(?:icon-image|repeat-image|fill-image)\s*:\s*\"?(.*?)\"?\s*;/)
+      if(($l =~ /(?:icon-image|repeat-image|fill-image)\s*:\s*(\"?(.*?)\"?)\s*;/) && ($1 ne "none"))
       {
-        my $img = "styles/standard/$1";
-        $img = "styles/$1" if((!-f "images/$img") && -f "images/styles/$1");
-        $img = $1 if((!-f "images/$img") && -f "images/$1");
+        my $val = $2;
+        my $img = "styles/standard/$val";
+        $img = "styles/$val" if((!-f "images/$img") && -f "images/styles/$val");
+        $img = $val if((!-f "images/$img") && -f "images/$val");
         ++$icons{$img};
       }