From: ivan Date: Wed, 4 Nov 2009 01:00:33 +0000 (+0000) Subject: silence "use of uninitialized value in split" warning X-Git-Tag: root_of_svc_elec_features~704 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=56d8a66d0ad959056e04578e237c14d1f5242a44;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 70dcd4934..82d6ed5f7 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',