--- lib/PXElator/server.pm	2009/08/11 12:39:05	198
+++ lib/PXElator/server.pm	2009/08/19 12:45:07	264
@@ -24,8 +24,15 @@
 mkdir $conf unless -e $conf;
 
 use Module::Refresh qw//;
-sub refresh { Module::Refresh->refresh };
-
+sub refresh {
+	Module::Refresh->refresh;
+	my $from = (caller(1))[3];
+	$from =~ s{^(\w+)::.+$}{$1};
+	my $eval = '$' . $from . '::debug = server::debug();';
+	warn "refresh $eval\n";
+	eval $eval;
+	warn $@ if $@;
+};
 
 mkdir $_ foreach grep { ! -d $_ } map { "$conf/$_" } ( 'ip', 'mac' );