Index: trunk/scripts/geticons.pl
===================================================================
--- trunk/scripts/geticons.pl	(revision 13283)
+++ trunk/scripts/geticons.pl	(revision 13384)
@@ -152,9 +152,12 @@
         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 =~ /^-/;
+            }
           }
         }