bytes_substr

diff --git a/Changes b/Changes
index 8038f0c..dccdee5 100644 (file)
--- 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 (file)
--- 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> >>