diff options
| -rwxr-xr-x | InternetSecure.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index a7b1d0f..9aa2d8d 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -108,9 +108,11 @@ sub prod_string { my @flags = ($currency); - foreach (split ' ' => uc($data{taxes} || '')) { - croak "Unknown tax code $_" unless /^(GST|PST|HST)$/; - push @flags, $_; + foreach (ref $data{taxes} ? + @{ $data{taxes} } : + split(' ' => $data{taxes} || '')) { + croak "Unknown tax code $_" unless /^(GST|PST|HST)$/i; + push @flags, uc $_; } if ($self->test_transaction) { |