vvelox
/
Parse-Netstat-Search
1
0
Fork 0
Code Issues Pull Requests Releases 6 Wiki Activity

bump to 0.0.3 to fix an issue where Net::CIDR does sometimes not like some IPs

This commit is contained in:
Zane C. B-H 2019-02-25 06:27:23 -06:00
parent 2a24162726
commit b3bbb47024
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Parse-Netstat-Search/Changes
View File

@ -1,15 +1,19 @@
Revision history for Parse-Netstat-Search Revision history for Parse-Netstat-Search
0.0.2 2019-02-24/08:30 0.0.3 2019-02-25/06:30
- Previous issue turned out to be specifically. Added - Use eval to talk to Net::CIDR as it seems to not always like IPv6.
addtional handling for UDP as it is stateless. This This allows it to continue instead of killing the entire op.
removes '?' from previously. State for for UDP is ''.
0.0.1 2019-02-24/06:30 0.0.2 2019-02-24/08:30
- Handle where FreeBSD does not state LISTEN. - Previous issue turned out to be specifically. Added
- Add a missing error flag. addtional handling for UDP as it is stateless. This
- If state is not defined use '?'. removes '?' from previously. State for for UDP is ''.
0.0.0 2019-02-20/06:00 0.0.1 2019-02-24/06:30
-Initial release. - 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.

10
Parse-Netstat-Search/lib/Parse/Netstat/Search.pm
View File

@ -12,11 +12,11 @@ Parse::Netstat::Search - Searches the connection list in the results returned by
=head1 VERSION =head1 VERSION
Version 0.0.2 Version 0.0.3
=cut =cut
our $VERSION = '0.0.2'; our $VERSION = '0.0.3';
=head1 SYNOPSIS =head1 SYNOPSIS
@ -271,11 +271,11 @@ sub search{
( (
( (
( $foreign_host ne '*' ) && ( $foreign_host ne '*' ) &&
( Net::CIDR::cidrlookup( $foreign_host, @{ $self->{cidrs} } ) ) ( eval{ Net::CIDR::cidrlookup( $foreign_host, @{ $self->{cidrs} } ) })
) || ) ||
( (
( $local_host ne '*' ) && ( $local_host ne '*' ) &&
( Net::CIDR::cidrlookup( $local_host, @{ $self->{cidrs} } ) ) ( eval{ Net::CIDR::cidrlookup( $local_host, @{ $self->{cidrs} } ) } )
) )
) )
) { ) {
@ -634,7 +634,7 @@ L<https://metacpan.org/release/Parse-Netstat-Search>
=item * Code Repo =item * Code Repo
L<http://gitea.eesdp.org/vvelox/Parse-Netstat-Search> L<https://gitea.eesdp.org/vvelox/Parse-Netstat-Search>
=back =back