From 82bc7a70907fa1dda24a19313570fd2bf22e37a6 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 22 Dec 2002 03:46:20 +0000
Subject: fix comments

---
 fml/lib/FML/Process/ThreadTrack.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'fml/lib/FML/Process/ThreadTrack.pm')

diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm
index f29562d6..05fd2359 100644
--- a/fml/lib/FML/Process/ThreadTrack.pm
+++ b/fml/lib/FML/Process/ThreadTrack.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: ThreadTrack.pm,v 1.34 2002/09/22 14:56:54 fukachan Exp $
+# $FML: ThreadTrack.pm,v 1.35 2002/10/28 09:58:12 tmu Exp $
 #
 
 package FML::Process::ThreadTrack;
@@ -38,7 +38,7 @@ create a C<FML::Process::Kernel> object and return it.
 
 =head2 C<prepare()>
 
-adjust ml_* and load configuration files.
+adjust ml_*, load configuration files and fix @INC.
 
 =cut
 
@@ -56,7 +56,7 @@ sub new
 }
 
 
-# Descriptions: adjust ml_* and load configuration files
+# Descriptions: adjust ml_*, load configuration files and fix @INC.
 #    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
@@ -178,6 +178,7 @@ sub run
     elsif ($command eq 'close') {
 	my $thread_id = $argv->[ 2 ];
 	if (defined $thread_id) {
+	    # XXX-TODO: method-ify.
 	    _close($thread, $thread_id, 1, $max_id);
 	}
 	else {
@@ -185,6 +186,8 @@ sub run
 	}
     }
     else {
+	# XXX-TODO: hmm, run interactive session unless @ARGV ?
+	# XXX-TODO: showing help is appropriate ?
 	if ($argv->[ 0 ] ne '') {
 	    push(@ISA, 'FML::Process::ThreadTrack::CUI');
 	    $ttargs->{ ml_name } = $argv->[ 0 ];
-- 
cgit v1.2.1