common: enable perl v5.14 features everywhere
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 29 Mar 2017 09:58:33 +0000 (11:58 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 10 Apr 2017 13:26:39 +0000 (15:26 +0200)
Replace page-specific usage by global default.

12 files changed:
base.plp
browser.plp
chars.plp
charset.plp
common.inc.plp
digraphs.plp
digraphs.vim.plp
font.plp
latin.plp
termcol.inc.pl
termcol.plp
unicode.plp

index 0c9ba8b..f1ed06c 100644 (file)
--- a/base.plp
+++ b/base.plp
@@ -97,7 +97,6 @@ for my $n (2 .. $count) {
 <h2>Duplication (2ⁿ)</h2>
 <table>
 <:
-use 5.010;
 sub showint {
        my ($int, $radix) = @_;
        my @digits;
index 0fc1627..bdde90e 100644 (file)
@@ -1,6 +1,4 @@
 <(common.inc.plp)><:
-use 5.010;
-use utf8;
 use List::Util qw(sum max first);
 no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
index 83c40ab..a637eae 100644 (file)
--- a/chars.plp
+++ b/chars.plp
@@ -10,7 +10,6 @@ Html({
        data => [qw( unicode-cover.inc.pl ttfsupport unicode-char.inc.pl )],
 });
 
-use 5.010;
 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
index 3315669..3bf294e 100644 (file)
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
-use 5.014;
 
 Html({
        title => 'charset cheat sheet',
index fa0e14f..cfd961e 100644 (file)
@@ -1,6 +1,6 @@
 <:
+use 5.014;
 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
index aca0766..df84755 100644 (file)
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
-use 5.010;  # state
 
 my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
 my $modename = $mode ? 'X.Org' : 'RFC-1345';
index d19b72a..423c057 100644 (file)
@@ -1,5 +1,5 @@
 <:
-use strict;
+use 5.014;
 use warnings;
 use open IO => ':utf8';
 
index 402c476..fd55017 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
-use 5.014;
 
 my $font = $ENV{PATH_INFO} =~ s{^/}{}r;
 
index ed68cae..9dd8fe9 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
-use 5.014;
 
 Html({
        title => 'latin alphabet cheat sheet',
index 56e93e2..b575944 100644 (file)
@@ -1,5 +1,4 @@
-use strict;
-use 5.010;
+use 5.014;
 use Shiar_Sheet::Colour 1.05;
 
 +{
index 6f7a55d..fbf7fe4 100644 (file)
@@ -35,7 +35,6 @@ print
 
 <div class="section">
 <:
-use 5.010;
 use Shiar_Sheet::Colour 1.04;
 use List::Util qw( min max );
 use POSIX qw( ceil );
index 5937545..4d28dbd 100644 (file)
@@ -26,7 +26,6 @@ i^k or i^vu respectively in <a href="/vi">Vim</a>.
 <div class="diinfo">
 
 <:
-use 5.010;
 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;