charset: silence warning of empty cell arguments

Ignored arguments cause a harmless warning with newer perls:
> Redundant argument in sprintf

diff --git a/charset.plp b/charset.plp
index f9c50d87616715b9d304f6a16e06f4a8a8dc3f89..c924d5e8a19feb48fcd7682e23caa7bcf42b0e08 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -347,8 +347,8 @@ for my $row (@request) {
                                $visible->{$glyph}++;
                        }
 
                                $visible->{$glyph}++;
                        }
 

-                       say sprintf $class ? '<td title="%s" class="X %s">%s' : '<td title="%s">',
-                               $name, $class, $cell;
+                       print '<td title="%s"', $name;
+                       say $class ? sprintf(' class="X %s">%s', $class, $cell) : '>';

                }
                continue {
                        $offset += $colsize;
                }
                continue {
                        $offset += $colsize;