X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSCSite%2FFilter.pm;fp=lib%2FSCSite%2FFilter.pm;h=16e9896e0c6b0e8d0ef65a83cfc97ad3be31ba2a;hb=2a19b2a6a1d611d7fcc484fdc19ac16c340db5ac;hp=6897fc7f4d5dbba5138aa447d50e292060ad2ffb;hpb=7460370d5f2db5cdaa8e30f41507877bc4f59c67;p=scpubgit%2FSCS.git

diff --git a/lib/SCSite/Filter.pm b/lib/SCSite/Filter.pm
index 6897fc7..16e9896 100644
--- a/lib/SCSite/Filter.pm
+++ b/lib/SCSite/Filter.pm
@@ -18,7 +18,10 @@ sub callback_for {
 sub _parse_config {
   my ($self, $evt) = @_;
   my %config = ( # adapted from CSS::Tiny, extracts -scs- prefix.
-    map /^\s*-scs-([\w._-]+)\s*:\s*(.*?)\s*$/,
+    map {        # converts -scs-foo-bar: to foo_bar
+      /^\s*-scs-([\w._-]+)\s*:\s*(.*?)\s*$/;
+      (join('_', split '-', $1), $2);
+    }
       grep { /\S/ } split /\;/, ($evt->{attrs}{style}||'')
   );
   s/^'(.*)'$/$1/ for values %config;