| Subject: | perl Net::IP module - hexip value |
| Date: | Sat, 13 Oct 2012 12:34:07 +0200 |
| To: | manuel.valente [...] gmail.com, bug-Net-IP [...] rt.cpan.org |
| From: | Miguel Rosa <migooel [...] gmail.com> |
Dear all,
I'm using Net::IP module on ActivePerl (version 1.23 but also checked 1.25
at CPAN):
*This is perl 5, version 14, subversion 2 (v5.14.2) built for
MSWin32-x86-multi-thread*
When I call the $ip->hexip for the first time it returns me the correct hex
value but when I change the IP by using the ->set function it keeps
returning me the hex value from the first IP I set. As a workaround I
can always use "Net::IP new....". Bug correction is easy - just comment
line 430 of hexip sub shown in red below
# $Id: IP.pm,v 1.23 2003/02/18 16:13:01 manuel Exp $
#------------------------------------------------------------------------------
# Subroutine hexip
# Purpose : Return the IP in hex format
# Returns : hex string
sub hexip {
my $self = shift;
#return $self->{'hexformat'} if(defined($self->{'hexformat'}));
$self->{'hexformat'} = $self->intip->as_hex();
return $self->{'hexformat'};
}
--
Miguel