disable Module::Refresh

[pxelator] / lib / PXElator / server.pm

diff --git a/lib/PXElator/server.pm b/lib/PXElator/server.pm
index 951a48a..b4f5b7a 100644 (file)
--- a/lib/PXElator/server.pm
+++ b/lib/PXElator/server.pm
@@ -37,15 +37,16 @@ sub conf {
        $conf;
 }
 
-use Module::Refresh qw//;
+#use Module::Refresh qw//;
 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 $@;
+       return 1;
+#      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' );