X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9d052178d7fe4dc8e762dcf86f015cdd038f272f..5f6be2729161503016864b7c9c8d3a89dba31bf4:/index.plp?ds=inline
diff --git a/index.plp b/index.plp
index 4b16cd2..94a7788 100644
--- a/index.plp
+++ b/index.plp
@@ -2,22 +2,22 @@
use utf8;
use strict;
use warnings;
-no warnings "qw"; # you know what you doing
-no warnings "uninitialized"; # save some useless checks for more legible code
+no warnings 'qw'; # you know what you doing
+no warnings 'uninitialized'; # save some useless checks for more legible code
-our $VERSION = "1.0";
+our $VERSION = '1.1';
our $ascii = 0;
if (exists $get{ascii}) {
- $ascii = $get{ascii} ne "0"; # manual override
+ $ascii = $get{ascii} ne '0'; # manual override
} elsif (defined $ENV{HTTP_ACCEPT_CHARSET}) {
$ascii = 1;
- for (split ",", $ENV{HTTP_ACCEPT_CHARSET}) {
- $ascii = 0, last if $_ eq "*" or m/utf-?8/i;
+ for (split q{,}, $ENV{HTTP_ACCEPT_CHARSET}) {
+ $ascii = 0, last if $_ eq '*' or m{utf-?8}i;
}
}
-my $charset = $ascii ? "us-ascii" : "utf-8";
+my $charset = $ascii ? 'us-ascii' : 'utf-8';
my $ctype = "text/html; charset=$charset";
$header{content_type} = $ctype;
@@ -31,16 +31,16 @@ $header{content_type} = $ctype;
<:
- my %styles = map {$_ => $_} qw(dark circus mono);
- our $style = exists $get{style} && $styles{$get{style}} || "light";
+ my %styles = map {$_ => $_} qw(dark circus mono terse);
+ our $style = exists $get{style} && $styles{$get{style}} || 'light';
printf(qq{\n},
- $_ eq $style ? "stylesheet" : "alternate stylesheet", "$_.css", $_
+ $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_
) for keys %styles;
- our $showkeys = exists $get{keys} && $get{keys} ne "0";
+ our $showkeys = exists $get{keys} && $get{keys} ne '0';
print "\n" unless $showkeys;
print "\n"
- if $showkeys and $get{keys} eq "ghost";
+ if $showkeys and $get{keys} eq 'ghost';
:>