Bug#602056: libsoap-lite-perl: Client dies with "Not a HASH reference at /usr/share/perl5/SOAP/Lite.pm line 3755."

[Ashish SHUKLA]

Hi everyone,

Attached diff fixes the issue for OP (as he confirmed on IM).

Thanks
-- 
Ashish SHUKLA

“She dump(1)-ed me without caring to restore(1).” (abbe, 2005)

--- /usr/share/perl5/vendor_perl/SOAP/Lite.pm   2010-06-03 21:03:26.000000000 
+0530
+++ SOAP/Lite.pm        2010-11-03 08:05:23.000000000 +0530
@@ -3747,13 +3747,13 @@
                 # fillup parameters
                 UNIVERSAL::isa($_[$param] => 'SOAP::Data')
                     ? $_[$param]->SOAP::Data::value($value)
-                    : UNIVERSAL::isa($_[$param] => 'ARRAY')
+                    : (ref($_[$param] eq 'ARRAY'))
                         ? (@{$_[$param]} = @$value)
-                        : UNIVERSAL::isa($_[$param] => 'HASH')
+                        : (ref($_[$param]) eq 'HASH')
                             ? (%{$_[$param]} = %$value)
-                            : UNIVERSAL::isa($_[$param] => 'SCALAR')
+                            : (ref($_[$param]) eq 'SCALAR')
                                 ? (${$_[$param]} = $$value)
-                                : ($_[$param] = $value)
+                                : ($_[$param] = $value);
             }
         }
     }

pgpp8SN7OYSPH.pgp
Description: PGP signature