Read File::Pid::Quick pidfiles properly

arodland · Aug 17, 2010 · bae442e · bae442e
1 parent 4817dd0
commit bae442e
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/cat-psgi-init b/cat-psgi-init
@@ -52,8 +52,12 @@ fi
 PERL5LIB="$APPDIR/lib"${PERL5LIB:+":"}$PERL5LIB
 export PERL5LIB
 
+getpid() {
+    awk '{ print $1 }' "$PIDFILE"
+}
+
 check_running() {
-    [ -s $PIDFILE ] && kill -0 $(cat $PIDFILE) >/dev/null 2>&1
+    [ -s $PIDFILE ] && kill -0 $(getpid) >/dev/null 2>&1
 }
 
 check_compile() {
@@ -127,7 +131,7 @@ restart() {
 reload() {
     log_daemon_msg "Reloading $APPNAME" $UNIXNAME
 
-    [ -s $PIDFILE ] && kill -HUP $(cat $PIDFILE) >/dev/null 2>&1
+    [ -s $PIDFILE ] && kill -HUP $(getpid) >/dev/null 2>&1
     log_end_msg $?
     return $?
 }