silence some perl warnings

diff --git a/digraphs.plp b/digraphs.plp
index 068961dd3289bb01771c7d4058dcd8a165481731..c5184a40296c60096f9411475f6de17b642d1f72 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -2,6 +2,7 @@
 use utf8;
 use strict;
 use warnings;
+no  warnings 'qw';  # to quote or not to quote, that is the question
 use open IO => ':utf8';
 
 our $VERSION = '1.0';

diff --git a/unicode.plp b/unicode.plp
index a6a33bdd985215b899f936f20438f7447a5dfb3b..acca2b9d9fee2f9e8adae01e6ae1a25fad82ead3 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -2,6 +2,7 @@
 use utf8;
 use strict;
 use warnings;
+no  warnings 'qw';  # that's not a comment, it's a NUMBER SIGN
 use open IO => ':utf8';
 
 our $VERSION = '1.0';
@@ -135,7 +136,7 @@ sub table {
 
        if ($colheads) {
                unshift @rows, sprintf '<thead><tr><td>%s<tbody>', join '',
-                       map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2) }
+                       map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2), '', '' }
                        @$colheads
        }