vvelox
/
Proc-ProcessTable-Colorizer
1
0
Fork 0
Code Issues Pull Requests Releases 2 Wiki Activity

tag 0.2.0 

git-svn-id: svn://127.0.0.1/Perl/Proc-ProcessTable-Colorizer/trunk@978 0c1c3402-1be1-de11-8092-0022686faf23
This commit is contained in:
Zane C. B-H 2017-11-08 07:50:45 +00:00
parent 828329afbf
commit 6533fb434a
2 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Proc-ProcessTable-Colorizer/Changes
View File

@ -1,7 +1,8 @@
Revision history for Proc-ProcessTable-Colorizer
0.2.0 2017-11-?/?
-Fix numeric search checking involving numbers with decimal points.
0.2.0 2017-11-08/02:00
-Fix numeric search string checking involving numbers with decimal points.
-Move self ignore check to the end so it works properly.
0.1.0 2017-11-07/01:00
-Only initilize BSD::Process once per process.

42
Proc-ProcessTable-Colorizer/lib/Proc/ProcessTable/Colorizer.pm
View File

@ -19,11 +19,11 @@ Proc::ProcessTable::Colorizer - Like ps, but with colored columns and enhnaced f
=head1 VERSION
Version 0.1.0
Version 0.2.0
=cut
our $VERSION = '0.1.0';
our $VERSION = '0.2.0';
=head1 SYNOPSIS
@ -346,25 +346,6 @@ sub colorize{
}
}
#checks to see if it should ignore its self
my $self_ignore=$self->{self_ignore};
if (
#if it is set to 1
( $self_ignore == 1 ) &&
( $proc->{pid} == $$ )
){
$required_hits++;
}elsif(
#if it is set to 2... we only care if we are doing a search...
#meaning required hits are greater than zero
( $required_hits > 0 ) &&
( $self_ignore == 2 ) &&
( $proc->{pid} == $$ )
){
#increment this so it will always be off by one for this proc, meaning it is ignored
$required_hits++;
}
#check to see if it needs to search for users
my $user_search_array=$self->userSearchGet;
if ( defined( $user_search_array->[0] ) ){
@ -667,6 +648,25 @@ sub colorize{
$hits++;
}
}
#checks to see if it should ignore its self
my $self_ignore=$self->{self_ignore};
if (
#if it is set to 1
( $self_ignore == 1 ) &&
( $proc->{pid} == $$ )
){
$required_hits++;
}elsif(
#if it is set to 2... we only care if we are doing a search...
#meaning required hits are greater than zero
( $required_hits > 0 ) &&
( $self_ignore == 2 ) &&
( $proc->{pid} == $$ )
){
#increment this so it will always be off by one for this proc, meaning it is ignored
$required_hits++;
}
if ( $required_hits == $hits ){
$show=1;