From 7f30c88ec340acb697c4dad7582945e25d4b5d0f Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sun, 22 Feb 2015 15:02:48 -0800 Subject: [PATCH] fix disappearing first names, fallout from #32223 --- FS/FS/Template_Mixin.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/FS/FS/Template_Mixin.pm b/FS/FS/Template_Mixin.pm index fe484a462..606c6c86c 100644 --- a/FS/FS/Template_Mixin.pm +++ b/FS/FS/Template_Mixin.pm @@ -7,7 +7,7 @@ use vars qw( $DEBUG $me ); # but NOT $conf use vars qw( $invoice_lines @buf ); #yuck -use List::Util qw(sum first); +use List::Util qw(sum); #can't import first, it conflicts with cust_main.first use Date::Format; use Date::Language; use Text::Template 1.20; @@ -1213,7 +1213,8 @@ sub print_generic { # create a tax section if we don't yet have one my $tax_description = 'Taxes, Surcharges, and Fees'; - my $tax_section = first { $_->{description} eq $tax_description } @sections; + my $tax_section = + List::Util::first { $_->{description} eq $tax_description } @sections; if (!$tax_section) { $tax_section = { 'description' => $tax_description }; push @sections, $tax_section if $multisection; -- 2.11.0