-Prevent a discovery action within a plugin crash from kicking off exponential discovery

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1679 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

xCAT-server/sbin/xcatd

@@ -298,6 +298,7 @@ if ($inet6support) {
   my $client;
   my $peerhost;
   my %packets;
+  my $actualpid=$$;
   until ($quit) {
     eval { 
 	while (1) {	
@@ -348,6 +349,9 @@ if ($inet6support) {
     if ($@) {
       syslog("local4|err","xcatd: possible BUG encountered by xCAT UDP service: ".$@);
     }
+    unless ($actualpid == $$) { #We should absolutely never be here, exponential growth from a plugin crash.
+        exit 1;
+    }
   }
 }