--- lib/PXElator/tftpd.pm	2009/08/02 12:09:02	115
+++ lib/PXElator/tftpd.pm	2009/08/03 08:52:32	118
@@ -5,7 +5,6 @@
 
 use Net::TFTPd 0.03 qw(%OPCODES);
 use Data::Dump qw/dump/;
-use Module::Refresh;
 
 use server;
 
@@ -22,7 +21,6 @@
 	return $path;
 }
 
-STDERR->autoflush(1);
 use progress_bar;
 
 sub transfer_status {
@@ -94,13 +92,11 @@
 
 	while(1) {
 
-		Module::Refresh->refresh;
-
 		# wait for any request (RRQ or WRQ)
 		if(my $request = $listener->waitRQ()) {
 			tftp_request $request;
-		} else {
-			warn Net::TFTPd->error;
+		} elsif ( my $error = Net::TFTPd->error ) {
+			warn $error;
 		}
 
 	}