diff options
| author | fukachan <fukachan> | 2004-01-14 13:31:28 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-01-14 13:31:28 +0000 |
| commit | ba674407d7008ba7b71b3c1b30cf5da4db8a1d69 (patch) | |
| tree | 484deeaf958bd6668ef69c605ebce3fc34583e5f /fml/lib/FML/Process | |
| parent | 309d4ea98d27785cd8ce621f37979c40e184df4d (diff) | |
| download | fml8-ba674407d7008ba7b71b3c1b30cf5da4db8a1d69.tar.gz fml8-ba674407d7008ba7b71b3c1b30cf5da4db8a1d69.tar.bz2 fml8-ba674407d7008ba7b71b3c1b30cf5da4db8a1d69.zip | |
bug fix handling of $args within $curproc for further reference.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Calendar.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Calendar.pm b/fml/lib/FML/Process/Calendar.pm index 20cd15bf..ef5cf6df 100644 --- a/fml/lib/FML/Process/Calendar.pm +++ b/fml/lib/FML/Process/Calendar.pm @@ -3,7 +3,7 @@ # Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Calendar.pm,v 1.9 2004/01/02 14:50:33 fukachan Exp $ +# $FML: Calendar.pm,v 1.10 2004/01/02 16:08:06 fukachan Exp $ # package FML::Process::Calendar; @@ -62,14 +62,17 @@ dummy. # Descriptions: dummy constructor. # avoid the default fml new() since we do not need it. -# Arguments: OBJ($self) +# Arguments: OBJ($self) HASH_REF($args) # Side Effects: none # Return Value: OBJ sub new { - my ($self) = @_; + my ($self, $args) = @_; my ($type) = ref($self) || $self; my $me = {}; + $me->{ main_cf } = $args->{ main_cf }; + $me->{ __parent_args } = $args; + return bless $me, $type; } |