silence some perl warnings

[sheet.git] / unicode.plp

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
        }