From a8d468c298ee86963159d0e9c940ad2afbad88d5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 30 Apr 2016 15:31:55 +0100
Subject: [PATCH] bdfnorm: Improve performance, a bit

---
 bdfnorm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bdfnorm b/bdfnorm
index da20e76..87aed71 100755
--- 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;
-- 
2.30.2