common: enable perl v5.14 features everywhere

Replace page-specific usage by global default.

diff --git a/base.plp b/base.plp
index 0c9ba8b2d362b0eb3ea8ede61b24409eff5a79ff..f1ed06cfa42265c32a2719ae78819896a7e4a55e 100644 (file)
--- a/base.plp
+++ b/base.plp
@@ -97,7 +97,6 @@ for my $n (2 .. $count) {
 <h2>Duplication (2ⁿ)</h2>
 <table>
 <:
 <h2>Duplication (2ⁿ)</h2>
 <table>
 <:

-use 5.010;

 sub showint {
        my ($int, $radix) = @_;
        my @digits;
 sub showint {
        my ($int, $radix) = @_;
        my @digits;

diff --git a/browser.plp b/browser.plp
index 0fc1627cec5eb3265ca13ac16eb34b7d3ed6bc46..bdde90e3401d86467859776b2a090efce443790b 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -1,6 +1,4 @@
 <(common.inc.plp)><:
 <(common.inc.plp)><:

-use 5.010;
-use utf8;

 use List::Util qw(sum max first);
 no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 use List::Util qw(sum max first);
 no if $] >= 5.018, warnings => 'experimental::smartmatch';
 

diff --git a/chars.plp b/chars.plp
index 83c40abc4ab686a8ad71e31608cf0100721819d6..a637eae8528f89b119a46fccd4c93ae1d6c3e944 100644 (file)
--- a/chars.plp
+++ b/chars.plp
@@ -10,7 +10,6 @@ Html({
        data => [qw( unicode-cover.inc.pl ttfsupport unicode-char.inc.pl )],
 });
 
        data => [qw( unicode-cover.inc.pl ttfsupport unicode-char.inc.pl )],
 });
 

-use 5.010;

 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 

diff --git a/charset.plp b/charset.plp
index 33156693d3f15c24a877b5645e86af041c5ebbe2..3bf294e4489b4a54914bb03e97ab1e6fdac9b5f1 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
 <(common.inc.plp)><:

-use 5.014;

 
 Html({
        title => 'charset cheat sheet',
 
 Html({
        title => 'charset cheat sheet',

diff --git a/common.inc.plp b/common.inc.plp
index fa0e14f62f5ee11308b5f537b93071f2f159a912..cfd961e20182d39ea8e6f99379bc5cfcbfe33dea 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -1,6 +1,6 @@
 <:
 <:

+use 5.014;

 use utf8;
 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
 use warnings;
 no  warnings 'qw';  # you know what you doing
 no  warnings 'uninitialized';  # save some useless checks for more legible code

diff --git a/digraphs.plp b/digraphs.plp
index aca0766bc9ec509a0bf08fb30d7245dadcde5f49..df84755cd43bd6ae6ce4ae7e8d25f32e3baba5d0 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
 <(common.inc.plp)><:

-use 5.010;  # state

 
 my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
 my $modename = $mode ? 'X.Org' : 'RFC-1345';
 
 my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
 my $modename = $mode ? 'X.Org' : 'RFC-1345';

diff --git a/digraphs.vim.plp b/digraphs.vim.plp
index d19b72a3aa5d673be600e132738995b918046a8b..423c0573d60c86e8cdffb8a1b8eae45893b5b607 100644 (file)
--- a/digraphs.vim.plp
+++ b/digraphs.vim.plp
@@ -1,5 +1,5 @@
 <:
 <:

-use strict;
+use 5.014;

 use warnings;
 use open IO => ':utf8';
 
 use warnings;
 use open IO => ':utf8';
 

diff --git a/font.plp b/font.plp
index 402c4763d3411a460425798e1f4ebdee0a13bf69..fd5501707e91f53d8f77f6981581161c780b448b 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
 <(common.inc.plp)><:

-use 5.014;

 
 my $font = $ENV{PATH_INFO} =~ s{^/}{}r;
 
 
 my $font = $ENV{PATH_INFO} =~ s{^/}{}r;
 

diff --git a/latin.plp b/latin.plp
index ed68caeaf2e6940cd5ccbf33ec2f9463485c6e12..9dd8fe93ada0c9e16377184dc1d061a179d8acc0 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -1,5 +1,4 @@
 <(common.inc.plp)><:
 <(common.inc.plp)><:

-use 5.014;

 
 Html({
        title => 'latin alphabet cheat sheet',
 
 Html({
        title => 'latin alphabet cheat sheet',

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 56e93e2a62a99b738bfb8a88da87e0294c2b1380..b575944a835c49ee24e6ff577a18e8cb99379ed8 100644 (file)
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -1,5 +1,4 @@
-use strict;
-use 5.010;
+use 5.014;

 use Shiar_Sheet::Colour 1.05;
 
 +{
 use Shiar_Sheet::Colour 1.05;
 
 +{

diff --git a/termcol.plp b/termcol.plp
index 6f7a55d979cf7a6d14fcac0839019c828232fce2..fbf7fe462fd8427f08efbc53d43912030ba3b4a5 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -35,7 +35,6 @@ print
 
 <div class="section">
 <:
 
 <div class="section">
 <:

-use 5.010;

 use Shiar_Sheet::Colour 1.04;
 use List::Util qw( min max );
 use POSIX qw( ceil );
 use Shiar_Sheet::Colour 1.04;
 use List::Util qw( min max );
 use POSIX qw( ceil );

diff --git a/unicode.plp b/unicode.plp
index 5937545efacc16b2204a5ef6cb083acb397725d1..4d28dbdfc329be08ebe579bdb4303221a111dd7d 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -26,7 +26,6 @@ i^k or i^vu respectively in <a href="/vi">Vim</a>.
 <div class="diinfo">
 
 <:
 <div class="diinfo">
 
 <:

-use 5.010;

 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;