From a43bd2ec8807b5cdb4660c6868cf1b982ff4cbfd Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Mon, 25 Jan 2016 15:06:35 -0800
Subject: [PATCH] bytes_substr

---
 Changes       |  3 +++
 Paymentech.pm | 27 ++++++++++++++-------------
 2 files changed, 17 insertions(+), 13 deletions(-)

diff --git a/Changes b/Changes
index 8038f0c..dccdee5 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Business-BatchPayment-Paymentech
 
+0.05    unreleased
+        - enforce field lengths in raw bytes
+
 0.04    unreleased
         - make filenames unique when sending multiple batches
 
diff --git a/Paymentech.pm b/Paymentech.pm
index 31a28ee..9eec935 100644
--- a/Paymentech.pm
+++ b/Paymentech.pm
@@ -289,6 +289,20 @@ sub parse_item {
   $item;
 }
 
+# internal use
+
+sub bytes_substr {
+  my ($string, $offset, $length, $repl) = @_;
+  my $bytes = substr(
+    Encode::encode('utf8', $string),
+    $offset,
+    $length,
+    Encode::encode('utf8', $repl)
+  );
+  return Encode::decode('utf8', $bytes, Encode::FB_QUIET);
+} 
+
+
 package Business::BatchPayment::Paymentech::Transport;
 
 use File::Temp qw( tempdir );
@@ -397,19 +411,6 @@ sub _info {
   }
 }
 
-# internal use
-
-sub bytes_substr {
-  my ($string, $offset, $length, $repl) = @_;
-  my $bytes = substr(
-    Encode::encode('utf8', $string),
-    $offset,
-    $length,
-    Encode::encode('utf8', $repl)
-  );
-  return Encode::decode('utf8', $bytes, Encode::FB_QUIET);
-} 
-
 =head1 AUTHOR
 
 Mark Wells, C<< <mark at freeside.biz> >>
-- 
2.11.0