Skip Menu |
 

This queue is for tickets about the POE-Component-Proxy-SOCKS CPAN distribution.

Report information
The Basics
Id: 37145
Status: resolved
Worked: 30 min
Priority: 0/
Queue: POE-Component-Proxy-SOCKS

People
Owner: BINGOS [...] cpan.org
Requestors: rdb [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Warning in pack() at SOCKS.pm line 480
Download (untitled) / with headers
text/plain 959b
So I tried the sample script from the manpage, and got this warning: Argument "@M-^RM-^Dy" isn't numeric in pack at /usr/lib/perl5/site_perl/5.8.8/POE/Component/Proxy/SOCKS.pm line 480. That line is in the functions _sock_up, and the line in question is a pack: my $response = pack "CCnN", 0, 90, $client->{dstport}, inet_aton( $client->{dstip} ); The problem is, the return value from inet_aton (a 4 byte network address) isn't recognized as a good value for the "N" part of pack. I changed it to: my $response = pack "CCnN", 0, 90, $client->{dstport}, <br>unpack("N", </b>inet_aton( $client->{dstip}<b>)</b> ); The fix is to unpack("N", inet_aton(...)), converting the packed value back into an integer that pack() can then process with "N". A little creative debug ouput from Spiffy reveals: --- fixed: "\0Z\0P@��y" unfixed: "\0Z\0P\0\0\0\0" ... I don't know enough about Socks4 to know how bad that is, but it doesn't look right to me. ;-)
Thanks. Applied as of 1.00


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.