From 20dafaa20d806f92474be444ff769bfcaa35b3b9 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <merijn@lx09.procura.nl>
Date: Mon, 16 Apr 2012 18:29:28 +0200
Subject: [PATCH] More efficient way to cut buffer in DHexDump ()

---
 Peek.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Peek.pm b/Peek.pm
index b0a4543..8c884e8 100644
--- a/Peek.pm
+++ b/Peek.pm
@@ -203,8 +203,8 @@ sub DHexDump
     my @out;
     my $var = @_ ? $_[0] : $_;
     defined $var or return;
-    my $str = "$var";	# force stringification
-    @_ > 1 && $_[1] < length $str and substr ($str, $_[1]) = "";
+    my $fmt = @_ > 1 && $_[1] < length ($var) ? "A$_[1]" : "A*";
+    my $str = pack $fmt, $var;	# force stringification
     for (unpack "(A32)*", unpack "H*", $str) {
 	my @b = unpack "(A2)*", $_;
 	my $out = sprintf "%04x ", $off;
-- 
2.11.4.GIT