silence some perl warnings
authorMischa POSLAWSKY <perl@shiar.org>
Sat, 11 Oct 2008 01:33:41 +0000 (01:33 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 11 Oct 2008 01:33:41 +0000 (01:33 +0000)
digraphs.plp
unicode.plp

index 068961d..c5184a4 100644 (file)
@@ -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';
index a6a33bd..acca2b9 100644 (file)
@@ -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
        }