[Catalyst-commits] r13199 - Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2010-05-03 14:00:23 +0100 (Mon, 03 May 2010)
New Revision: 13199

Modified:
   Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
Log:
[C-M-SOAP] fix #36621 -- do not modify input arrayref

Modified: Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
===================================================================
--- Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2010-05-03 00:51:43 UTC (rev 13198)
+++ Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2010-05-03 13:00:23 UTC (rev 13199)
@@ -26,9 +26,10 @@
         }
 
         if (ref $wsdl eq 'ARRAY') {
-            my $main = shift @{$wsdl};
+            my @wsdl = @{$wsdl};
+            my $main = shift @wsdl;
             $wsdl_obj = XML::Compile::WSDL11->new($main);
-            $wsdl_obj->addWSDL($_) for @{$wsdl};
+            $wsdl_obj->addWSDL($_) for @wsdl;
         } else {
             $wsdl_obj = XML::Compile::WSDL11->new($wsdl);
         }