update-xfonts-traditional: Break out filter_st_isok (no functional change)

[xfonts-traditional.git] / bdfnorm

diff --git a/bdfnorm b/bdfnorm
index da20e7651e7a100660be44f90fae0dd19512a941..87aed71e85ca6d6801ffedf05b68fd4721efa10b 100755 (executable)
--- a/bdfnorm
+++ b/bdfnorm
@@ -39,7 +39,7 @@ while (<>) {
        chomp;
        m/[^0-9A-F]/ and die "$& ?";
 #      print "# $_\n";
-       s/./ unpack "B4", pack "H*", $& /ge;
+       $_ = unpack "B*", pack "H*", $_;
 #      print "# $_\n";
        $_ = ("0" x ($cbbox[2] - $fbbox[2])) . $_;
 #      print "# $_\n";
@@ -47,7 +47,7 @@ while (<>) {
 #      print "# $_\n";
        $_ .= "0" x ($numbytes*8 - length);
 #      print "# $_\n";
-       s/.{4}/ unpack "H", pack "B4", $& /ge;
+       $_ = unpack "H*", pack "B*", $_;
        $_ .= "\n";
     }
     print;