r42057 - in /branches/upstream/libsys-statistics-linux-perl/current: ChangeLog META.yml lib/Sys/Statistics/Linux.pm lib/Sys/Statistics/Linux/Processes.pm

[thialme-guest at users.alioth.debian.org]

Author: thialme-guest
Date: Tue Aug 18 16:19:18 2009
New Revision: 42057

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42057
Log:
[svn-upgrade] Integrating new upstream version, libsys-statistics-linux-perl (0.54)

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/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=42057&op=diff
==============================================================================
--- branches/upstream/libsys-statistics-linux-perl/current/ChangeLog (original)
+++ branches/upstream/libsys-statistics-linux-perl/current/ChangeLog Tue Aug 18 16:19:18 2009
@@ -1,3 +1,9 @@
+0.54    Released at 2009-08-17.
+        - No changes, just a full release.
+
+0.53_01 Released at 2009-08-10.
+        - Fixed wchan in Processes.pm - RT #48458
+
 0.52    Released at 2009-06-05.
         - 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=42057&op=diff
==============================================================================
--- branches/upstream/libsys-statistics-linux-perl/current/META.yml (original)
+++ branches/upstream/libsys-statistics-linux-perl/current/META.yml Tue Aug 18 16:19:18 2009
@@ -1,6 +1,6 @@
 ---
 name: Sys-Statistics-Linux
-version: 0.52
+version: 0.54
 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.52
+    version: 0.54
   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.26
+    version: 0.27
   Sys::Statistics::Linux::SockStats:
     file: lib/Sys/Statistics/Linux/SockStats.pm
     version: 0.07

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=42057&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 Tue Aug 18 16:19:18 2009
@@ -433,7 +433,7 @@
 =cut
 
 package Sys::Statistics::Linux;
-our $VERSION = '0.52';
+our $VERSION = '0.54';
 
 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=42057&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 Tue Aug 18 16:19:18 2009
@@ -136,7 +136,7 @@
 use Time::HiRes;
 use constant NUMBER => qr/^-{0,1}\d+(?:\.\d+){0,1}\z/;
 
-our $VERSION = '0.26';
+our $VERSION = '0.27';
 our $PAGES_TO_BYTES = 0;
 
 sub new {
@@ -321,7 +321,12 @@
 
         if (open my $fh, '<', "$file->{basedir}/$pid/$file->{wchan}") {
             $stats{$pid}{wchan} = <$fh>;
-            chomp($stats{$pid}{wchan});
+
+            if (defined $stats{$pid}{wchan}) {
+                chomp($stats{$pid}{wchan});
+            } else {
+                $stats{$pid}{wchan} = defined;
+            }
         } else {
             delete $stats{$pid};
             next PID;