1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
From: Sebastien Delafond <sdelafond@gmx.net>
Subject: Added a test to get rid of a warning message
--- SOCKS-0.03.orig/lib/Net/SOCKS.pm 2004-10-24 16:14:19.000000000 -0700
+++ SOCKS-0.03/lib/Net/SOCKS.pm 1998-05-19 05:22:47.000000000 -0700
@@ -231,7 +231,13 @@
${*self}{listen_addr} = ${*self}{socks_addr};
}
- my $dotted_dec = inet_ntoa( pack ("N", ${*self}{listen_addr} ) );
+ my $dotted_dec;
+ if (${*self}{listen_addr} =~ m/(\d+\.){3}\d+/) {
+ $dotted_dec = ${*self}{listen_addr};
+ } else {
+ $dotted_dec = inet_ntoa( pack ("N", ${*self}{listen_addr} ) );
+ }
+
if (${*self}{status_num}==SOCKS_OKAY) {
return (${*self}{listen_addr}, $dotted_dec, ${*self}{listen_port})
}
|
