--- lib/PXElator/tftpd.pm	2009/07/30 20:15:39	66
+++ lib/PXElator/tftpd.pm	2009/07/30 21:31:30	67
@@ -8,6 +8,8 @@
 
 use server;
 
+our $debug = server::debug;
+
 our $dir  = "$server::base_dir/tftp";
 
 sub path {
@@ -71,7 +73,7 @@
 		Debug => 99,
 	) || die Net::TFTPd->error;
 
-	warn 'listener: ',dump( $listener );
+	warn 'listener: ',dump( $listener ) if $debug;
 
 	while(1) {