r45464 - in /branches/upstream/libsys-statistics-linux-perl/current: ChangeLog META.yml README lib/Sys/Statistics/Linux.pm lib/Sys/Statistics/Linux/Processes.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Oct 7 23:24:38 UTC 2009
Author: jawnsy-guest
Date: Wed Oct 7 23:24:34 2009
New Revision: 45464
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45464
Log:
[svn-upgrade] Integrating new upstream version, libsys-statistics-linux-perl (0.56)
Modified:
branches/upstream/libsys-statistics-linux-perl/current/ChangeLog
branches/upstream/libsys-statistics-linux-perl/current/META.yml
branches/upstream/libsys-statistics-linux-perl/current/README
branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux.pm
branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux/Processes.pm
Modified: branches/upstream/libsys-statistics-linux-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-statistics-linux-perl/current/ChangeLog?rev=45464&op=diff
==============================================================================
--- branches/upstream/libsys-statistics-linux-perl/current/ChangeLog (original)
+++ branches/upstream/libsys-statistics-linux-perl/current/ChangeLog Wed Oct 7 23:24:34 2009
@@ -1,3 +1,16 @@
+0.56 Released at 2009-10-07.
+ - Just a full release.
+
+0.55_02 Released at 2009-09-28.
+ - Processes.pm: calculate the keys minflt, cminflt, mayflt, cmayflt,
+ utime, stime, cutime, and cstime with sttime and uptime.
+
+0.55_01 Released at 2009-09-03.
+ - Processes.pm: processes that are created between the call of
+ init() and get() are now returned. The keys minflt, cminflt,
+ mayflt, cmayflt, utime, stime, cutime, and cstime are set
+ to 0.00 - see RT #49363
+
0.54 Released at 2009-08-17.
- No changes, just a full release.
Modified: branches/upstream/libsys-statistics-linux-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-statistics-linux-perl/current/META.yml?rev=45464&op=diff
==============================================================================
--- branches/upstream/libsys-statistics-linux-perl/current/META.yml (original)
+++ branches/upstream/libsys-statistics-linux-perl/current/META.yml Wed Oct 7 23:24:34 2009
@@ -1,6 +1,6 @@
---
name: Sys-Statistics-Linux
-version: 0.54
+version: 0.56
author:
- Jonny Schulz
abstract: Front-end module to collect system statistics
@@ -18,7 +18,7 @@
provides:
Sys::Statistics::Linux:
file: lib/Sys/Statistics/Linux.pm
- version: 0.54
+ version: 0.56
Sys::Statistics::Linux::Compilation:
file: lib/Sys/Statistics/Linux/Compilation.pm
version: 0.10
@@ -51,7 +51,7 @@
version: 0.17
Sys::Statistics::Linux::Processes:
file: lib/Sys/Statistics/Linux/Processes.pm
- version: 0.27
+ version: 0.29
Sys::Statistics::Linux::SockStats:
file: lib/Sys/Statistics/Linux/SockStats.pm
version: 0.07
Modified: branches/upstream/libsys-statistics-linux-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-statistics-linux-perl/current/README?rev=45464&op=diff
==============================================================================
--- branches/upstream/libsys-statistics-linux-perl/current/README (original)
+++ branches/upstream/libsys-statistics-linux-perl/current/README Wed Oct 7 23:24:34 2009
@@ -139,7 +139,7 @@
init => 1,
initfile => '/tmp/netstats.yml',
},
- pgswttats => {
+ pgswstats => {
init => 1,
initfile => '/tmp/pgswstats.yml',
},
Modified: branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux.pm?rev=45464&op=diff
==============================================================================
--- branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux.pm (original)
+++ branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux.pm Wed Oct 7 23:24:34 2009
@@ -133,7 +133,7 @@
init => 1,
initfile => '/tmp/netstats.yml',
},
- pgswttats => {
+ pgswstats => {
init => 1,
initfile => '/tmp/pgswstats.yml',
},
@@ -433,7 +433,7 @@
=cut
package Sys::Statistics::Linux;
-our $VERSION = '0.54';
+our $VERSION = '0.56';
use strict;
use warnings;
Modified: branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux/Processes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux/Processes.pm?rev=45464&op=diff
==============================================================================
--- branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux/Processes.pm (original)
+++ branches/upstream/libsys-statistics-linux-perl/current/lib/Sys/Statistics/Linux/Processes.pm Wed Oct 7 23:24:34 2009
@@ -101,6 +101,12 @@
my $stat = $lxs->get;
+Note:
+
+Processes that were created between the call of init() and get() are returned as well,
+but the keys minflt, cminflt, mayflt, cmayflt, utime, stime, cutime, and cstime are set
+to the value 0.00 because there are no inititial values to calculate the deltas.
+
=head1 EXPORTS
No exports.
@@ -136,7 +142,7 @@
use Time::HiRes;
use constant NUMBER => qr/^-{0,1}\d+(?:\.\d+){0,1}\z/;
-our $VERSION = '0.27';
+our $VERSION = '0.29';
our $PAGES_TO_BYTES = 0;
sub new {
@@ -347,10 +353,11 @@
}
sub _deltas {
- my $self = shift;
- my $class = ref $self;
- my $istat = $self->{init};
- my $lstat = $self->{stats};
+ my $self = shift;
+ my $class = ref $self;
+ my $istat = $self->{init};
+ my $lstat = $self->{stats};
+ my $uptime = $self->_uptime;
if (!defined $istat->{time} || !defined $lstat->{time}) {
croak "$class: not defined key found 'time'";
@@ -380,24 +387,30 @@
croak "$class: invalid value for key '$k'";
}
- # $tmp is used for the next init stat
- my $tmp = $lpid->{$k};
$lpid->{$k} -= $ipid->{$k};
+ $ipid->{$k} += $lpid->{$k};
+
if ($lpid->{$k} > 0 && $time > 0) {
$lpid->{$k} = sprintf('%.2f', $lpid->{$k} / $time);
} else {
$lpid->{$k} = sprintf('%.2f', $lpid->{$k});
}
- $ipid->{$k} = $tmp;
- }
- # total workload
+ }
$lpid->{ttime} = sprintf('%.2f', $lpid->{stime} + $lpid->{utime});
} else {
- # if the start time is not equal then it seems to be a new process
- for my $k (qw(minflt cminflt mayflt cmayflt utime stime cutime cstime sttime)) {
+ # calculation the statistics since process creation
+ for my $k (qw(minflt cminflt mayflt cmayflt utime stime cutime cstime)) {
+ my $p_uptime = $uptime - $lpid->{sttime} / 100;
$istat->{$pid}->{$k} = $lpid->{$k};
- delete $lstat->{$pid};
- }
+
+ if ($p_uptime > 0) {
+ $lpid->{$k} = sprintf('%.2f', $lpid->{$k} / $p_uptime);
+ } else {
+ $lpid->{$k} = sprintf('%.2f', $lpid->{$k});
+ }
+ }
+ $lpid->{ttime} = sprintf('%.2f', $lpid->{stime} + $lpid->{utime});
+ $istat->{$pid}->{sttime} = $lpid->{sttime};
}
}
}
More information about the Pkg-perl-cvs-commits
mailing list