| Subject: | Hash Ref passed to client as '' instead of {} in 0.60a |
Perl Version = Various (tried on 5.8.0 from ActiveState, 5.8.2 on cygwin, 5.8.5 on Fedora Core 2 & 5.8.0 on RedHat9)
Sample Server:
#!perl -w
use SOAP::Transport::HTTP;
use Demo;
my $daemon = SOAP::Transport::HTTP::Daemon
-> new (LocalPort => 80)
-> dispatch_to('Demo');
print "SOAP Version: " . $SOAP::Lite::VERSION . "\n";
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;
Sample Demo.pm
package Demo;
use Data::Dumper;
sub test_ref {
my $x = {};
print Dumper($x);
return $x;
}
1;
Sample Client:
#!perl -w
use SOAP::Lite ;
use Data::Dumper;
my $x = SOAP::Lite
-> uri('http://localhost/Demo')
-> proxy('http://localhost/test_server.pl')
-> test_ref()
-> result;
print Dumper($x);
Running Server with SOAP::Lite 0.60a, Client SOAP::Lite 0.60a
Server console:
$ perl test_server.pl
SOAP Version: 0.60
Contact to SOAP server at http://z953467w/
$VAR1 = {};
Client Console:
$ perl test_client.pl
$VAR1 = '';
Running Server with SOAP::Lite 0.55, Client SOAP::Lite 0.60a
Server console:
H:\>perl test_server.pl
SOAP Version: 0.55
Contact to SOAP server at http://localhost/
$VAR1 = {};
Client Console:
$ perl test_client.pl
$VAR1 = {};