diff options
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | Paymentech.pm | 27 |
2 files changed, 17 insertions, 13 deletions
@@ -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> >> |