Index: /lang/perl/tiarra/trunk/main/RunLoop.pm
===================================================================
--- /lang/perl/tiarra/trunk/main/RunLoop.pm (revision 10848)
+++ /lang/perl/tiarra/trunk/main/RunLoop.pm (revision 11101)
@@ -22,5 +22,4 @@
 use Multicast;
 use Timer;
-use ControlPort;
 use Hook;
 use base qw(HookTarget);
@@ -32,4 +31,5 @@
 use Tiarra::TerminateManager;
 our $_shared_instance;
+#use ControlPort; # lazy load
 
 BEGIN {
@@ -840,4 +840,5 @@
     # control-socket-nameが指定されていたら、ControlPortを開く。
     if ($conf_general->control_socket_name) {
+	require ControlPort;
 	eval {
 	    $this->{control_port} = ControlPort->new($conf_general->control_socket_name);