From: ivan <ivan>
Date: Wed, 4 Nov 2009 00:59:52 +0000 (+0000)
Subject: silence "use of uninitialized value in split" warning
X-Git-Tag: freeside_1_9_2~244
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3def16aa3b656347e6dbe032afe183ac24646dc9;p=freeside.git

silence "use of uninitialized value in split" warning
---

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 287453f3c..cd5f0fea1 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -205,7 +205,11 @@ sub insert {
   warn "  inserting part_pkg_taxoverride records" if $DEBUG;
   my %overrides = %{ $options{'tax_overrides'} || {} };
   foreach my $usage_class ( keys %overrides ) {
-    my @overrides = (grep "$_", split (',', $overrides{$usage_class}) );
+    my $override =
+      ( exists($overrides{$usage_class}) && defined($overrides{$usage_class}) )
+        ? $overrides{$usage_class}
+        : '';
+    my @overrides = (grep "$_", split(',', $override) );
     my $error = $self->process_m2m (
                   'link_table'   => 'part_pkg_taxoverride',
                   'target_table' => 'tax_class',