Fix a few "strict" errors that were exposed when I turned of

the SelfLoader.

db/Experiment.pm.in

@@ -5441,7 +5441,7 @@ sub AllocatePublicAddrPools($)
 	    $spare = $n - $count;
 	    DBQueryWarn( "UPDATE virt_node_public_addr SET eid=NULL, " .
 			 "pid=NULL, pool_id=NULL WHERE eid='$eid' " .
-			 "AND pid='$pid' AND pool_id='$pool_id' " .
+			 "AND pid='$pid' AND pool_id='$pool' " .
 			 "LIMIT $spare" );
 	}
     }

db/emutil.pm.in

@@ -603,7 +603,7 @@ sub PipeCommand($$$)
 
 	exec($command);
 	die("*** $0:\n".
-	    "    exec '$string' failed: $!\n");
+	    "    exec '$command' failed: $!\n");
     }
     close PARENT;