Hi,
i'm having problems with script that uses BEGIN block, seems like it was
thrown away by pp.
It looks like this:
C:\bin\temp\qqqq>pp -M PAR -M SOAP::Transport::HTTP -M LWP -M
SOAP::Transport::HTTP::Client t.pl
C:\bin\temp\qqqq>a.exe
Start.
Uruchamianie hello()...
401 Authorization Required at script/t.pl line 12
while
C:\bin\temp\qqqq>perl -w t.pl
Start.
Uruchamianie hello()...
Hello cruel world : username
Uruchamianie count()...
2
the script looks like this:
C:\bin\temp\qqqq>type t.pl
#!/usr/bin/perl -w
print "Start.\n";
use SOAP::Lite;
my $soap=SOAP::Lite
-> uri('http://URI')
-> proxy('http://proxy.location');
my ($som);
print "Uruchamianie hello()...\n";
$som=$soap -> hello("World");
...unimportant stuff.. and:
BEGIN {
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return "username" => "password";
};
};
perl is 5.8, PAR is bit old ( ie 0.70 IIRC ), i'll investigate further when
I have access to windows machine.
Another problem is that with wsdl stuff I get such errors:
C:\bin\temp\qqqq>a.exe
Start.
Use of uninitialized value in pattern match (m//) at /loader/0xd028b0/utf8_heavy
.pl line 165.
Use of uninitialized value in scalar assignment at /loader/0xd028b0/utf8_heavy.p
l line 181.
etc... and I don't know where and how to look for solution...
--
Mayoi komuno wa Usuyami no sekai, Dariush Pietrzak
Key fingerprint = 40D0 9FFB 9939 7320 8294 05E0 BCC7 02C4 75CC 50D9
