ccurpcd: Minor bug fix
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10372 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -56,6 +56,8 @@ sub CheckProcess ($)
|
||||
my $pdump = `ps -ef | grep $prcname | grep -v grep`;
|
||||
my @plist = split "\n", $pdump;
|
||||
foreach my $proc (@plist) {
|
||||
# Remove leading blanks, fix for MacOS. Thanks to mcdeck
|
||||
$proc =~ s/^\s+//;
|
||||
my @procattr = split /\s+/, $proc;
|
||||
if ($procattr[1] != $$ && $procattr[7] =~ /perl$/ && $procattr[8] eq $prcname) {
|
||||
Log "Process $proc is running";
|
||||
|
||||
Reference in New Issue
Block a user