From 168871403c3bc8df91d6be65caba4bdd49745085 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 27 Aug 2014 16:56:11 +0200 Subject: [PATCH] Bug 6536: QA Follow-up for removing warnings from QA tools Resolved: [1] FAIL C4/Breeding.pm FAIL critic ControlStructures::ProhibitMutatingListFunctions Signed-off-by: Marcel de Rooy No warnings anymore. Signed-off-by: Tomas Cohen Arazi --- C4/Breeding.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Breeding.pm b/C4/Breeding.pm index 293b933336..fa3af82475 100644 --- a/C4/Breeding.pm +++ b/C4/Breeding.pm @@ -363,7 +363,7 @@ sub _create_connection { #first remove surrounding spaces at comma and equals-sign s/^\s+|\s+$//g; my @temp= split '=', $_, 2; - @temp= map { s/^\s+|\s+$//g; $_; } @temp; + @temp= map { my $c=$_; $c=~s/^\s+|\s+$//g; $c; } @temp; $option1->option( $temp[0] => $temp[1] ) if @temp; } } elsif( $server->{servertype} eq 'zed' ) { -- 2.39.5