bin2hex: actually account for the number of bytes written

Unlike C, in Perl printf() doesn't return the number of bytes written.

Signed-off-by: H. Peter Anvin <hpa@zytor.com>

1 files changed, 5 insertions, 2 deletions

diff --git a/utils/bin2hex.pl b/utils/bin2hex.pl
index 0cb486e7..778b699e 100644
--- a/utils/bin2hex.pl
+++ b/utils/bin2hex.pl
@@ -26,12 +26,15 @@
 ##
 ## -----------------------------------------------------------------------
 
-eval { use bytes; }; eval { binmode STDIN; };
+eval { use bytes; };
+eval { binmode STDIN; };
 
 $len = 0;
 while ( read(STDIN,$ch,1) ) {
     $cc = ord($ch);
-    $len += printf ("%x", $cc);
+    $s = sprintf("%x", $cc);
+    print $s;
+    $len += length($s);
     if ( $len > 72 ) {
 	print "\n";
 	$len = 0;