From 8755839f9b033c3e53e6db40c079afd35ca919f7 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Thu, 11 Dec 2014 22:00:41 +0100
Subject: Removed heading from ps list (caused an undefined value comparing)

---
 lib/AdminPanel/Shared.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/AdminPanel/Shared.pm b/lib/AdminPanel/Shared.pm
index dbb9e19..5e5d219 100644
--- a/lib/AdminPanel/Shared.pm
+++ b/lib/AdminPanel/Shared.pm
@@ -42,7 +42,6 @@ This module collects all the routines shared between AdminPanel and its modules.
     inArray
     disable_x_screensaver
     enable_x_screensaver
-    isRunning
     isProcessRunning
 
 =head1 SUPPORT
@@ -96,7 +95,6 @@ our @EXPORT_OK = qw(
     inArray
     disable_x_screensaver
     enable_x_screensaver
-    isRunning
     isProcessRunning
 );
 
@@ -365,9 +363,11 @@ sub enable_x_screensaver() {
 sub isProcessRunning {
     my ($name, $o_user) = @_;
     my $user = $o_user || $ENV{USER};
-    foreach (`ps -o '%P %p %c' -u $user`) {
+    my @proc = `ps -o '%P %p %c' -u $user`;
+    shift (@proc);
+    foreach (@proc) {
         my ($ppid, $pid, $n) = /^\s*(\d+)\s+(\d+)\s+(.*)/;
-        return $pid if $ppid != 1 && $pid != $$ && $n eq $name;
+        return $pid if $n eq $name && $ppid != 1 && $pid != $$;
     }
     return;
 }
-- 
cgit v1.2.1