note the changes and actually use NC->proc

This commit is contained in:
Zane C. B-H 2019-08-14 05:02:00 -05:00
parent 4371e312ba
commit 9c33541969
2 changed files with 15 additions and 2 deletions

View File

@ -1,5 +1,8 @@
Revision history for Net-Connection-ncnetstat
0.4.1 2019-08-14/05:00
- Actually use Net::Connection->proc now.
0.4.0 2019-08-14/04:30
- Convert to Text::ANSITable for line wrapping with --Cl

View File

@ -18,11 +18,11 @@ Net::Connection::ncnetstat - The backend for ncnetstat, the colorized and enhanc
=head1 VERSION
Version 0.4.0
Version 0.4.1
=cut
our $VERSION = '0.4.0';
our $VERSION = '0.4.1';
=head1 SYNOPSIS
@ -337,6 +337,16 @@ sub run{
if (defined( $cmd_cache{$conn->pid} ) ){
push( @new_line, color('bright_red').$cmd_cache{$conn->pid}.color('reset') );
$loop=0;
}elsif(
defined( $conn->proc )
){
my $command=$conn->proc;
if ( ! $self->{command_long} ){
$command=~s/\ .*//;
}
$cmd_cache{$conn->pid}=$command;
push( @new_line, color('bright_red').$cmd_cache{$conn->pid}.color('reset') );
$loop=0,
}elsif( $proctable->[ $proc ]->pid eq $conn->pid ){
if ( $proctable->[ $proc ]->{'cmndline'} =~ /^$/ ){
#kernel process