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