An internal error message in printrule is improved slightly.

[xfonts-traditional.git] / printrule

diff --git a/printrule b/printrule
index 4c16d9b4d451ee8bd138d165ba72cbbcc1c61d4a..e2db77cbf0c333eaf3894084bb55f5d3490566c5 100755 (executable)
--- a/printrule
+++ b/printrule
@@ -30,7 +30,7 @@ sub get ($) {
     }
     my $glyph='';
     for (my $y=0; $y<$height; $y++) {
-       <$f> =~ m/^([0-9a-f]+)$/i or die "$p $_ ?";
+       <$f> =~ m/^([0-9a-f]+)$/i or die "$y $height $p $_ ?";
        $glyph.="$1;";
     }
     $glyph =~ s/\;$//;