Front page | perl.perl5.porters |
Postings from February 2012
On Fri, Feb 3, 2012 at 9:31 AM, Paul LeoNerd Evans
<leonerd@leonerd.org.uk>wrote:
> 10-second thought:
>
> package IO::Socket::INET;
> use base qw( IO::Socket::IP );
>
> sub new
> {
> shift->SUPER::new( Family => AF_INET, @_ );
> }
>
> 1;
>
> Is probably the way to go about implementing that.
>
That implementation would break IO::Socket::INET->new($peer_addr), but
that's easy to fix.
sub new {
my $class = shift;
unshift(@_, 'PeerrAddr') if @_ == 1;
return $class->SUPER::new( Family => AF_INET, @_ );
}
That implementation would break IO::Socket->new( Domain => AF_INET, ... ),
but that's easy to fix too. Just add
use IO::Socket::IP qw( -register );
- Eric
Thread Previous