From c14ff34df0f6e80b747b2f0eef7b30a2deab636d Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 6 Feb 2010 01:18:52 +0000 Subject: [PATCH] prepare html for stylesheet includes to allow scalar override --- common.inc.plp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/common.inc.plp b/common.inc.plp index fb1d54a..b3a9a70 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -57,6 +57,7 @@ sub Html { ref $_ eq 'ARRAY' and $_ = join ' ', @$_ for $meta->{description}; ref $_ eq 'ARRAY' and $_ = join ', ', @$_ for $meta->{keywords}; ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{rawstyle}, $meta->{raw}; + ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet}; # other vars my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- '; @@ -76,7 +77,7 @@ sub Html { EOT - print stylesheet(@$_), "\n" for $meta->{stylesheet} || (); + print $_, "\n" for $meta->{stylesheet} || (); print $_, "\n" for $meta->{raw} || (); print qq{\n\n\n}; -- 2.30.0