diff options
| author | fukachan <fukachan> | 2004-01-02 09:42:33 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-01-02 09:42:33 +0000 |
| commit | 60e187bcb2509d807ff03dee5665a0769c4978ff (patch) | |
| tree | edfe1ac9888810d526eb6be711a3320908cd93ea /fml/lib/FML/Header | |
| parent | 1917a3f8d7b18d1cd5406e8a72f31a0b92f2e90a (diff) | |
| download | fml8-60e187bcb2509d807ff03dee5665a0769c4978ff.tar.gz fml8-60e187bcb2509d807ff03dee5665a0769c4978ff.tar.bz2 fml8-60e187bcb2509d807ff03dee5665a0769c4978ff.zip | |
use of $args is ambiguous. change local variable names.
Diffstat (limited to 'fml/lib/FML/Header')
| -rw-r--r-- | fml/lib/FML/Header/MessageID.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fml/lib/FML/Header/MessageID.pm b/fml/lib/FML/Header/MessageID.pm index ddd6fd36..1a01ef98 100644 --- a/fml/lib/FML/Header/MessageID.pm +++ b/fml/lib/FML/Header/MessageID.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: MessageID.pm,v 1.17 2003/12/30 03:52:07 fukachan Exp $ +# $FML: MessageID.pm,v 1.18 2004/01/01 23:52:15 fukachan Exp $ # package FML::Header::MessageID; @@ -57,7 +57,7 @@ sub new } -=head2 db_open($args) +=head2 db_open($db_args) open db and return HASH_REF for the db access. @@ -67,13 +67,13 @@ open db and return HASH_REF for the db access. # Descriptions: open message-id database -# Arguments: OBJ($self) HASH_REF($args) +# Arguments: OBJ($self) HASH_REF($db_args) # Side Effects: none # Return Value: HASH_ERF sub db_open { - my ($self, $args) = @_; - my $dir = $args->{ 'directory' }; + my ($self, $db_args) = @_; + my $dir = $db_args->{ 'directory' }; my $mode = 'temporal'; my $days = 14; @@ -155,7 +155,7 @@ sub set } -=head2 gen_id($curproc, $args) +=head2 gen_id($config) generate and return a new message-id. |