fixes cases when $SOCKET_CLASS was defined before loading of IO::Socket::Socks but was not added to @ISA
also closes #7
Oleg
9 years ago
| 15 | 15 |
ESOCKSPROTO => exists &Errno::EPROTO ? &Errno::EPROTO : 7000,
|
| 16 | 16 |
};
|
| 17 | 17 |
|
| 18 | |
@ISA = ('Exporter');
|
|
18 |
@ISA = ('Exporter', $SOCKET_CLASS||'');
|
| 19 | 19 |
|
| 20 | 20 |
tie $SOCKET_CLASS, 'IO::Socket::Socks::SocketClassVar', $SOCKET_CLASS;
|
| 21 | 21 |
unless ($SOCKET_CLASS) {
|