Skip Menu |

This queue is for tickets about the Proc-ProcessTable CPAN distribution.

Report information
The Basics
Id: 68405
Status: resolved
Priority: 0/
Queue: Proc-ProcessTable

People
Owner: Nobody in particular
Requestors: jmanning [...] yahoo-inc.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: uid/euid info not collected accurately in FreeBSD 7.1
Date: Mon, 23 May 2011 15:21:39 -0700
To: bug-Proc-ProcessTable [...] rt.cpan.org
From: "Jesse Manning" <jmanning [...] yahoo-inc.com>
Proc::ProcessTable displays all uids and euids as 0, when ps shows it correctly. The process running in this example is running as user bind (uid 53). $ perl -e 'use File::Find; print $File::Find::VERSION . "\n";' 1.07 $ uname -srm FreeBSD 7.1-YAHOO-20090204 amd64 $ perl --version This is perl, v5.8.5 built for i386-freebsd-thread-multi ... ===snip=== use 5.008; use Proc::ProcessTable; print "Proc::ProcessTable Version: " . $Proc::ProcessTable::VERSION . "\n"; my $ps = Proc::ProcessTable->new(); my $t = $ps->table; foreach my $p ( @{$t} ) { if( $p->fname eq "named" ) { print $p->fname . " " . $p->pid . " " . $p->uid . " " . $p->euid . "\n"; } } ===/snip=== $ ./t.pl Proc::ProcessTable Version: 0.45 perl: warning: /var/run/dev.db: No such file or directory named 29592 0 0 $ ps -p 29592 -o uid,args UID COMMAND 53 /home/y/sbin64/named -n 1 -u bind -t /var/named
On 2011-05-23 18:21:57, jmanning@yahoo-inc.com wrote: Show quoted text
> Proc::ProcessTable displays all uids and euids as 0, when ps shows it > correctly. The process running in this example is running as user bind > (uid 53). > > $ perl -e 'use File::Find; print $File::Find::VERSION . "\n";' > 1.07 > > $ uname -srm > FreeBSD 7.1-YAHOO-20090204 amd64 > > $ perl --version > > This is perl, v5.8.5 built for i386-freebsd-thread-multi > ... > > ===snip=== > use 5.008; > use Proc::ProcessTable; > print "Proc::ProcessTable Version: " . $Proc::ProcessTable::VERSION .
"\n"; Show quoted text
> my $ps = Proc::ProcessTable->new(); > my $t = $ps->table; > > foreach my $p ( @{$t} ) { > if( $p->fname eq "named" ) { > print $p->fname . " " . $p->pid . " " . $p->uid . " " . $p->euid . "\n"; > } > } > ===/snip=== > > $ ./t.pl > Proc::ProcessTable Version: 0.45 > perl: warning: /var/run/dev.db: No such file or directory > named 29592 0 0 > > $ ps -p 29592 -o uid,args > UID COMMAND > 53 /home/y/sbin64/named -n 1 -u bind -t /var/named >
This issue should be fixed with the following patch: http://cpan.cpantesters.org/authors/id/S/SR/SREZIC/patches/Proc-ProcessTable-0.45-SREZIC-01.patch I tested it with Proc::ProcessTable 0.46 on FreeBSD 8.0 and 9.0. Regards, Slaven
closed in v0.47