--- lib/PXElator/tftpd.pm	2009/07/30 15:23:16	59
+++ lib/PXElator/tftpd.pm	2009/07/30 22:43:48	68
@@ -8,11 +8,13 @@
 
 use server;
 
+our $debug = server::debug;
+
 our $dir  = "$server::base_dir/tftp";
 
 sub path {
 	my $glob = shift;
-	my $path = glob("$dir/$glob");
+	my $path = (glob("$dir/$glob"))[0];
 	die "can't find anything for $dir/$glob" unless $path;
 warn $path;
 	$path =~ s{^$dir}{};
@@ -71,7 +73,7 @@
 		Debug => 99,
 	) || die Net::TFTPd->error;
 
-	warn 'listener: ',dump( $listener );
+	warn 'listener: ',dump( $listener ) if $debug;
 
 	while(1) {