also untaint pid

diff --git a/fs_passwd/fs_passwdd b/fs_passwd/fs_passwdd
index 38079da..43eb5db 100755 (executable)
--- a/fs_passwd/fs_passwdd
+++ b/fs_passwd/fs_passwdd
@@ -31,9 +31,11 @@ listen(Server,SOMAXCONN) or die "listen: $!";
 
 if ( -e $pid_file ) {
   open(PIDFILE,"<$pid_file");
-  chomp( my $old_pid = <PIDFILE> );
+  #chomp( my $old_pid = <PIDFILE> );
+  my $old_pid = <PIDFILE>;
   close PIDFILE;
-  kill 'TERM', $old_pid;
+  $old_pid =~ /^(\d+)$/
+  kill 'TERM', $1;
 }
 open(PIDFILE,">$pid_file");
 print PIDFILE "$$\n";