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

add in wchan support for linux

This commit is contained in:
Zane C. B-H 2019-08-15 16:27:18 -05:00
parent 8808fe7955
commit dd3643de9e
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Net-Connection-lsof/lib/Net/Connection/lsof.pm
View File

@ -17,11 +17,11 @@ Net::Connection::lsof - This uses lsof to generate a array of Net::Connection ob
=head1 VERSION
Version 0.1.1
Version 0.2.0
=cut
our $VERSION = '0.1.1';
our $VERSION = '0.2.0';
=head1 SYNOPSIS
@ -238,8 +238,19 @@ sub lsof_to_nc_objects{
}
$pid_proc{ $args->{pid} }=$args->{proc};
$args->{wchan}=$proc_table->[ $proc_int ]->{wchan};
$pid_wchan{ $args->{pid} }=$args->{wchan};
# linux has shit wchan reporting and apparently if you want more than
# the address you need to use the ass backwards /proc
if ( $^O =~ /linux/ ){
if ( -e '/proc/'.$args->{pid}.'/wchan'){
open( my $wchan_fh, '<', '/proc/'.$args->{pid}.'/wchan' );
$args->{wchan}=readline( $wchan_fh );
close( $wchan_fh );
$pid_wchan{ $args->{pid} }=$args->{wchan};
}
}else{
$args->{wchan}=$proc_table->[ $proc_int ]->{wchan};
$pid_wchan{ $args->{pid} }=$args->{wchan};
}
$args->{pid_start}=$proc_table->[ $proc_int ]->{pid_start};
$pid_start{ $args->{pid} }=$args->{pid_start};