From 17fc2be53b7f7da87f71e0e40b4ad79ceea304e4 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
Content-Type: text/plain; charset=utf-8

Resolved:
[1]  FAIL   C4/Breeding.pm
FAIL   critic ControlStructures::ProhibitMutatingListFunctions

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
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