summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2005-12-18 11:53:26 +0000
committerfukachan <fukachan>2005-12-18 11:53:26 +0000
commit5d0901a6ff9af3aeff7b2db8c047d8406930d438 (patch)
tree5180012f9dd2d56022fc0b24e70601044935f72f
parentf23ae8a6058a804a61ea80a5fcf7e469fbcb139c (diff)
downloadfml8-5d0901a6ff9af3aeff7b2db8c047d8406930d438.tar.gz
fml8-5d0901a6ff9af3aeff7b2db8c047d8406930d438.tar.bz2
fml8-5d0901a6ff9af3aeff7b2db8c047d8406930d438.zip
comment on incomplete dup_command_args
-rw-r--r--fml/lib/FML/Process/Utils.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 701d0b64..f262845c 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.pm
@@ -4,7 +4,7 @@
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
-# $FML: Utils.pm,v 1.141 2005/11/30 23:50:19 fukachan Exp $
+# $FML: Utils.pm,v 1.142 2005/12/17 13:47:58 fukachan Exp $
#
package FML::Process::Utils;
@@ -2075,6 +2075,7 @@ sub dup_curproc_args
my $args = $curproc->{ __parent_args };
my $hash = {};
+ # XXX-TODO: incomplete duplication
my ($k, $v);
while (($k, $v) = each %$args) {
$v = $args->{ $k };