From 17fc2be53b7f7da87f71e0e40b4ad79ceea304e4 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 Content-Type: text/plain; charset=utf-8 Resolved: [1] FAIL C4/Breeding.pm FAIL critic ControlStructures::ProhibitMutatingListFunctions Signed-off-by: Marcel de Rooy No warnings anymore. --- C4/Breeding.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/C4/Breeding.pm b/C4/Breeding.pm index 293b933..fa3af82 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' ) { -- 1.7.7.6