From b3bbb4702487675eba7784ced7b387c4ffae06ec Mon Sep 17 00:00:00 2001 From: "Zane C. Bowers-Hadley" Date: Mon, 25 Feb 2019 06:27:23 -0600 Subject: [PATCH] bump to 0.0.3 to fix an issue where Net::CIDR does sometimes not like some IPs --- Parse-Netstat-Search/Changes | 24 +++++++++++-------- .../lib/Parse/Netstat/Search.pm | 10 ++++---- 2 files changed, 19 insertions(+), 15 deletions(-) diff --git a/Parse-Netstat-Search/Changes b/Parse-Netstat-Search/Changes index e8b91d9..76942b7 100644 --- a/Parse-Netstat-Search/Changes +++ b/Parse-Netstat-Search/Changes @@ -1,15 +1,19 @@ Revision history for Parse-Netstat-Search -0.0.2 2019-02-24/08:30 - - Previous issue turned out to be specifically. Added - addtional handling for UDP as it is stateless. This - removes '?' from previously. State for for UDP is ''. +0.0.3 2019-02-25/06:30 + - Use eval to talk to Net::CIDR as it seems to not always like IPv6. + This allows it to continue instead of killing the entire op. -0.0.1 2019-02-24/06:30 - - Handle where FreeBSD does not state LISTEN. - - Add a missing error flag. - - If state is not defined use '?'. +0.0.2 2019-02-24/08:30 + - Previous issue turned out to be specifically. Added + addtional handling for UDP as it is stateless. This + removes '?' from previously. State for for UDP is ''. -0.0.0 2019-02-20/06:00 - -Initial release. +0.0.1 2019-02-24/06:30 + - Handle where FreeBSD does not state LISTEN. + - Add a missing error flag. + - If state is not defined use '?'. + +0.0.0 2019-02-20/06:00 + -Initial release. diff --git a/Parse-Netstat-Search/lib/Parse/Netstat/Search.pm b/Parse-Netstat-Search/lib/Parse/Netstat/Search.pm index 0945cb4..d01d8dc 100644 --- a/Parse-Netstat-Search/lib/Parse/Netstat/Search.pm +++ b/Parse-Netstat-Search/lib/Parse/Netstat/Search.pm @@ -12,11 +12,11 @@ Parse::Netstat::Search - Searches the connection list in the results returned by =head1 VERSION -Version 0.0.2 +Version 0.0.3 =cut -our $VERSION = '0.0.2'; +our $VERSION = '0.0.3'; =head1 SYNOPSIS @@ -271,11 +271,11 @@ sub search{ ( ( ( $foreign_host ne '*' ) && - ( Net::CIDR::cidrlookup( $foreign_host, @{ $self->{cidrs} } ) ) + ( eval{ Net::CIDR::cidrlookup( $foreign_host, @{ $self->{cidrs} } ) }) ) || ( ( $local_host ne '*' ) && - ( Net::CIDR::cidrlookup( $local_host, @{ $self->{cidrs} } ) ) + ( eval{ Net::CIDR::cidrlookup( $local_host, @{ $self->{cidrs} } ) } ) ) ) ) { @@ -634,7 +634,7 @@ L =item * Code Repo -L +L =back