From 168871403c3bc8df91d6be65caba4bdd49745085 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
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 <m.de.rooy@rijksmuseum.nl>
No warnings anymore.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 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