use HTTP::Date;
use Shiar_Sheet::KeySigns qw(%sign);
+$PLP::ERROR = sub {
+ my ($text, $html) = @_;
+ print '<p class="error"><strong>Fatal error</strong>: '.$html."</p>\n\n";
+};
+
our $style;
our $showkeys = !exists $get{keys} ? undef :
($get{keys} ne '0' && ($get{keys} || 'always'));
# flatten arrays
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 $_ = join "\n", @$_ for $meta->{raw};
ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
# other vars