Diff of /branches/0.71/lib/SOAP/Transport/LOCAL.pm [r397] .. [r398] Maximize Restore

  Switch to side-by-side view

--- a/branches/0.71/lib/SOAP/Transport/LOCAL.pm
+++ b/branches/0.71/lib/SOAP/Transport/LOCAL.pm
@@ -4,7 +4,7 @@
 # SOAP::Lite is free software; you can redistribute it
 # and/or modify it under the same terms as Perl itself.
 #
-# $Id: LOCAL.pm 386 2011-08-18 19:48:31Z kutterma $
+# $Id: LOCAL.pm 398 2011-12-13 20:15:50Z kutterma $
 #
 # ======================================================================
 
@@ -27,11 +27,16 @@
 sub new {
     my $class = shift;
     return $class if ref $class;
-    my(@arg_from, @method_from);
+    my @method_from;
     while (@_) {
-        $class->can($_[0])
-            ? push(@method_from, shift() => shift)
-            : push(@arg_from, shift)
+        if $class->can($_[0]) {
+            push(@method_from, shift() => shift);
+        }
+        else
+        {
+            # ignore unknown arguments
+            shift;
+        }
     }
     my $self = $class->SUPER::new(@arg_from);
     $self->is_success(1);     # it's difficult to fail in this module