Compare commits

...

2 Commits

Author SHA1 Message Date
Zane C. B-H f3089ada01 note the changes 2021-02-19 06:23:43 -06:00
Zane C. B-H adc7220396 revert to lsof 2021-02-19 06:21:16 -06:00
3 changed files with 20 additions and 16 deletions

View File

@ -1,5 +1,9 @@
Revision history for Net-Connection-ncnetstat
0.7.0 2021-02-19/06:30
- Revert to lsof on FreeBSD given formatting problems with
sockstat on FreeBSD with long IPv6 addresses.
0.6.4 2021-02-17/04:00
- Change use if around to play friendly with older versions of Perl.

View File

@ -30,12 +30,12 @@ my %WriteMakefileArgs = (
clean => { FILES => 'Net-Connection-ncnetstat-*' },
);
if ( $^O =~ /freebsd/ ) {
$WriteMakefileArgs{PREREQ_PM}{'Net::Connection::FreeBSD_sockstat'} = '0.0.1';
}
else {
$WriteMakefileArgs{PREREQ_PM}{'Net::Connection::lsof'} = '0.1.1';
}
#if ( $^O =~ /freebsd/ ) {
# $WriteMakefileArgs{PREREQ_PM}{'Net::Connection::FreeBSD_sockstat'} = '0.0.1';
#}
#else {
$WriteMakefileArgs{PREREQ_PM}{'Net::Connection::lsof'} = '0.2.0';
#}
# Compatibility with old versions of ExtUtils::MakeMaker
unless ( eval { ExtUtils::MakeMaker->VERSION('6.64'); 1 } ) {

View File

@ -11,9 +11,9 @@ use Proc::ProcessTable;
use Text::ANSITable;
# use Net::Connection::FreeBSD_sockstat if possible
use if $^O eq 'freebsd', 'Net::Connection::FreeBSD_sockstat';
use if $^O ne 'freebsd', 'Net::Connection::lsof';
#use if $^O eq 'freebsd', 'Net::Connection::FreeBSD_sockstat';
#use if $^O ne 'freebsd', 'Net::Connection::lsof';
use Net::Connection::lsof;
=head1 NAME
@ -21,11 +21,11 @@ Net::Connection::ncnetstat - The backend for ncnetstat, the colorized and enhanc
=head1 VERSION
Version 0.6.4
Version 0.7.0
=cut
our $VERSION = '0.6.4';
our $VERSION = '0.7.0';
=head1 SYNOPSIS
@ -173,12 +173,12 @@ sub run {
my $self = $_[0];
my @objects;
if ( $^O !~ /freebsd/ ) {
# if ( $^O !~ /freebsd/ ) {
@objects = &lsof_to_nc_objects;
}
else {
@objects = &sockstat_to_nc_objects;
}
# }
# else {
# @objects = &sockstat_to_nc_objects;
# }
my @found;
if ( defined( $self->{match} ) ) {