r45469 - in /trunk/libsys-statistics-linux-perl: ChangeLog META.yml README debian/changelog 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:51:50 UTC 2009
Author: jawnsy-guest
Date: Wed Oct 7 23:51:45 2009
New Revision: 45469
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45469
Log:
New upstream release
Modified:
trunk/libsys-statistics-linux-perl/ChangeLog
trunk/libsys-statistics-linux-perl/META.yml
trunk/libsys-statistics-linux-perl/README
trunk/libsys-statistics-linux-perl/debian/changelog
trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux.pm
trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux/Processes.pm
Modified: trunk/libsys-statistics-linux-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-statistics-linux-perl/ChangeLog?rev=45469&op=diff
==============================================================================
--- trunk/libsys-statistics-linux-perl/ChangeLog (original)
+++ trunk/libsys-statistics-linux-perl/ChangeLog Wed Oct 7 23:51:45 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: trunk/libsys-statistics-linux-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-statistics-linux-perl/META.yml?rev=45469&op=diff
==============================================================================
--- trunk/libsys-statistics-linux-perl/META.yml (original)
+++ trunk/libsys-statistics-linux-perl/META.yml Wed Oct 7 23:51:45 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: trunk/libsys-statistics-linux-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-statistics-linux-perl/README?rev=45469&op=diff
==============================================================================
--- trunk/libsys-statistics-linux-perl/README (original)
+++ trunk/libsys-statistics-linux-perl/README Wed Oct 7 23:51:45 2009
@@ -139,7 +139,7 @@
init => 1,
initfile => '/tmp/netstats.yml',
},
- pgswttats => {
+ pgswstats => {
init => 1,
initfile => '/tmp/pgswstats.yml',
},
Modified: trunk/libsys-statistics-linux-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-statistics-linux-perl/debian/changelog?rev=45469&op=diff
==============================================================================
--- trunk/libsys-statistics-linux-perl/debian/changelog (original)
+++ trunk/libsys-statistics-linux-perl/debian/changelog Wed Oct 7 23:51:45 2009
@@ -1,9 +1,13 @@
-libsys-statistics-linux-perl (0.54-2) UNRELEASED; urgency=low
+libsys-statistics-linux-perl (0.56-1) UNRELEASED; urgency=low
+ [ Jonathan Yu ]
+ * New upstream release
+
+ [ Ryan Niebur ]
* Update jawnsy's email address
* Update ryan52's email address
- -- Ryan Niebur <ryan at debian.org> Fri, 25 Sep 2009 00:26:29 -0700
+ -- Jonathan Yu <jawnsy at cpan.org> Wed, 07 Oct 2009 15:45:31 -0400
libsys-statistics-linux-perl (0.54-1) unstable; urgency=low
Modified: trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux.pm?rev=45469&op=diff
==============================================================================
--- trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux.pm (original)
+++ trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux.pm Wed Oct 7 23:51:45 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: trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux/Processes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux/Processes.pm?rev=45469&op=diff
==============================================================================
--- trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux/Processes.pm (original)
+++ trunk/libsys-statistics-linux-perl/lib/Sys/Statistics/Linux/Processes.pm Wed Oct 7 23:51:45 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