From 449cf97d71e4b8ad1d56662b655f67d8e3cafd40 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9gory=20Soutad=C3=A9?= <soutade@gmail.com>
Date: Fri, 26 Nov 2021 08:19:41 +0100
Subject: [PATCH] Bugfix : Sometimes proccess are stopped between readir of
 /proc and analyze. This should not raise an error

---
 memstats | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/memstats b/memstats
index 3b4266b..cb47146 100755
--- a/memstats
+++ b/memstats
@@ -182,7 +182,7 @@ while (my $pid = readdir(DIR)) {
 
     # Get owner name
     my $uid = 0;
-    open(FIC,"</proc/$pid/status") or die $!;
+    open(FIC,"</proc/$pid/status") or next; # Processus may have stopped between readdir and analyze
     while( defined( $l = <FIC> ) ) {
 	if ($l =~ /Uid:\s+([0-9]+)\s+.*/)
 	{
@@ -196,7 +196,7 @@ while (my $pid = readdir(DIR)) {
      $quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($uid);
 
     # Get infos
-    open(FIC,"</proc/$pid/stat") or die $!;
+    open(FIC,"</proc/$pid/stat") or next; # Processus may have stopped between readdir and analyze
     my @infos = split(/ /, <FIC>);
     close (FIC);