--- lib/PXElator/daemons.pm	2009/09/07 21:34:05	390
+++ lib/PXElator/daemons.pm	2009/09/08 17:30:47	398
@@ -92,14 +92,13 @@
 			# child
 			my $invoke = 'start';
 			$invoke = $1 if $daemon =~ s{/(.+)}{};
-warn "XXX child ",dump( %ENV );
+			#warn "## ENV child ",dump( %ENV );
 			if ( $daemon =~ m{dhcpd|tftpd|dnsd|syslogd} ) {
 				my $exec = "perl -I$server::base_dir/lib -I$server::base_dir/lib/PXElator -M$daemon -e ${daemon}::${invoke}";
 				audit 'exec', $daemon, 'exec' => $exec;
 				x11::xterm( $daemon => $exec );
 			} else {
 				$daemon =~ s{\.\d+$}{} if defined $ENV{nr};
-warn "XXXX $daemon\n";
 				my $eval = $daemon . '::' . $invoke . '(' . dump( $param ) . ')';
 				audit 'eval', $daemon, 'eval' => $eval;
 				eval $eval;