[freeside-commits] freeside/FS/FS part_pkg.pm,1.97,1.97.2.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv28879

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	part_pkg.pm 
Log Message:
silence "use of uninitialized value in split" warning

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.97
retrieving revision 1.97.2.1
diff -u -d -r1.97 -r1.97.2.1
--- part_pkg.pm	24 Aug 2009 06:39:58 -0000	1.97
+++ part_pkg.pm	4 Nov 2009 00:59:52 -0000	1.97.2.1
@@ -205,7 +205,11 @@
   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',