From aae69dfcf69ae9825f53f670aa09691934fc27ba Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 11 Oct 2008 01:33:41 +0000
Subject: [PATCH] silence some perl warnings

---
 digraphs.plp | 1 +
 unicode.plp  | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/digraphs.plp b/digraphs.plp
index 068961d..c5184a4 100644
--- 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 a6a33bd..acca2b9 100644
--- 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
 	}
 
-- 
2.30.0