X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/46ed3fdeb5a9966717f27c99b750d13551cb25e9..881b4a69e47004c59f35979620b65fd3d4aaaf16:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 1e3f30a..4bf28bf 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -8,7 +8,7 @@ use open ':std' => ':utf8'; use File::stat 'stat'; use HTTP::Date; -use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii} +use Shiar_Sheet::KeySigns qw(%sign); our $style; our $showkeys = !exists $get{keys} ? undef : @@ -87,7 +87,6 @@ sub Html { ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet}; # other vars - my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- '; my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; # leading output @@ -116,7 +115,7 @@ EOT rel="code" title="Written in Perl">plp $meta->{version} - created by $sep + created by $sign{sep} AGPLv3