Problem with SOAP::Lite

tandx has asked for the wisdom of the Perl Monks concerning the following question:

I tried to test a pieces of codes from Bioinformatics book (list below) in Eclipse. It generates the following error and stops running. I don't know how to solve the problem. Please help!! Thank you.

-----------------error message-------

"Insecure dependency in eval while running with -T switch at C:/Perl/lib/SOAP/Lite.pm line 2526. "

-----------------perl code-----------

#!/usr/local/bin/perl -w
use SOAP::Lite;

my $service = SOAP::Lite-> service("http://xml.nig.ac.jp/" .
               "wsdl/GetEntry.wsdl");
 
$result = $service->getFASTA_CDSEntry("BN000101");

print $result;
[download]

Comment on Problem with SOAP::Lite Download Code

Replies are listed 'Best First'.
Re: Problem with SOAP::Lite by ww (Archbishop) on Oct 05, 2011 at 14:43 UTC
See "Laundering and Detecting Tainted Data" in `perldoc perlsec`.	[reply] [d/l]
Re^2: Problem with SOAP::Lite by tandx (Novice) on Oct 05, 2011 at 17:16 UTC
Thank you very much. Now I know what causes the problem, but still has not figured out a simple solution to make the short script run without the error :-(	[reply]
Re: Problem with SOAP::Lite by Anonymous Monk on Oct 05, 2011 at 14:56 UTC
See SOAP::Lite - Insecure dependency in eval while running with -T Without taint, I get a java.lang.NullPointerException #!/usr/local/bin/perl -- use strict; use warnings; use SOAP::Lite; use SOAP::Lite +trace => [ transport => \&pp_dump, ]; my $service = SOAP::Lite->service( q{http://xml.nig.ac.jp/wsdl/GetEntry.wsdl}); my $result = $service->getFASTA_CDSEntry("BN000101"); print $result; sub pp { use XML::Twig; open my($fh), '>', \my $str; no warnings 'newline'; XML::Twig->new(qw! pretty_print record !)->xparse(@_)->print( $fh +); return $str; } sub pp_dump { my $content = $_[0]->content(''); $_[0]->content( pp($content) ); print $_[0]->as_string,"\n"; return; } __END__ [download]	[reply] [d/l]