--- 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 398 2011-12-13 20:15:50Z kutterma $
+# $Id: LOCAL.pm 401 2012-03-10 17:18:32Z kutterma $
 #
 # ======================================================================
 
@@ -22,14 +22,14 @@
 use SOAP::Lite;
 
 use vars qw(@ISA);
-@ISA = qw(SOAP::Client SOAP::Server);
+our @ISA = qw(SOAP::Client SOAP::Server);
 
 sub new {
     my $class = shift;
     return $class if ref $class;
     my @method_from;
     while (@_) {
-        if $class->can($_[0]) {
+        if ($class->can($_[0])) {
             push(@method_from, shift() => shift);
         }
         else
@@ -38,7 +38,7 @@
             shift;
         }
     }
-    my $self = $class->SUPER::new(@arg_from);
+    my $self = $class->SUPER::new();
     $self->is_success(1);     # it's difficult to fail in this module
     $self->dispatch_to(@INC);
     while (@method_from) {
@@ -51,8 +51,8 @@
 }
 
 sub send_receive {
-    my($self, %parameters) = @_;
-    my($envelope, $endpoint, $action) =
+    my ($self, %parameters) = @_;
+    my ($envelope, $endpoint, $action) =
         @parameters{qw(envelope endpoint action)};
 
     SOAP::Trace::debug($envelope);