Changeset 11101

Timestamp:

05/04/08 20:05:35 (5 years ago)

Author:

topia

Message:

* use lazy loading for ControlPort?.

Files:

• lang/perl/tiarra/trunk/main/RunLoop.pm (modified) (3 diffs)

lang/perl/tiarra/trunk/main/RunLoop.pm

@@ -22 +22 @@
 use Multicast;
 use Timer;
-use ControlPort;
 use Hook;
 use base qw(HookTarget);
@@ -32 +31 @@
 use Tiarra::TerminateManager;
 our $_shared_instance;
+#use ControlPort; # lazy load
 
 BEGIN {
@@ -840 +840 @@
     # control-socket-nameが指定されていたら、ControlPortを開く。
     if ($conf_general->control_socket_name) {
+        require ControlPort;
         eval {
             $this->{control_port} = ControlPort->new($conf_general->control_socket_name);