vvelox
/
Net-Connection-ncnetstat
mirror of https://github.com/VVelox/Net-Connection-ncnetstat.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

make play nicely with older versions of Perl on Linux

This commit is contained in:
Zane C. B-H 2021-02-17 03:29:04 -06:00
parent f8d90d9732
commit 357d7e4dbe
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Net-Connection-ncnetstat/Changes
View File

@ -1,5 +1,8 @@
Revision history for Net-Connection-ncnetstat
0.6.4 2021-02-17/04:00
- Change use if around to play friendly with older versions of Perl.
0.6.3 2021-02-16/10:30
- Fix at runtime module use to actually work now. Thanks Grinnz, Botje!

10
Net-Connection-ncnetstat/lib/Net/Connection/ncnetstat.pm
View File

@ -11,8 +11,8 @@ use Proc::ProcessTable;
use Text::ANSITable;
# use Net::Connection::FreeBSD_sockstat if possible
use if $^O =~ /freebsd/, 'Net::Connection::FreeBSD_sockstat';
use if $^O !~ /freebsd/, 'Net::Connection::lsof';
use if $^O eq 'freebsd', 'Net::Connection::FreeBSD_sockstat';
use if $^O ne 'freebsd', '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.3
Version 0.6.4
=cut
our $VERSION = '0.6.3';
our $VERSION = '0.6.4';
=head1 SYNOPSIS
@ -177,7 +177,7 @@ sub run {
@objects = &lsof_to_nc_objects;
}
else {
@objects = sockstat_to_nc_objects;
@objects = &sockstat_to_nc_objects;
}
my @found;