diff options
| author | fukachan <fukachan> | 2005-08-19 12:08:17 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-19 12:08:17 +0000 |
| commit | 76b208ac574e30ceb3cf304efcaf1c48b83e9a0d (patch) | |
| tree | 9790936977c816b5aae185164c1ce3b20c8eecee /fml | |
| parent | af4f0f0c9276ac4c0210f580e8c24817cef89586 (diff) | |
| download | fml8-76b208ac574e30ceb3cf304efcaf1c48b83e9a0d.tar.gz fml8-76b208ac574e30ceb3cf304efcaf1c48b83e9a0d.tar.bz2 fml8-76b208ac574e30ceb3cf304efcaf1c48b83e9a0d.zip | |
FNF: pick_up_queue -> pickup_queue
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/MUA/POP3.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/FetchFML.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/fml/lib/FML/MUA/POP3.pm b/fml/lib/FML/MUA/POP3.pm index 7d36ddf8..65ac53e1 100644 --- a/fml/lib/FML/MUA/POP3.pm +++ b/fml/lib/FML/MUA/POP3.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: POP3.pm,v 1.2 2005/06/04 07:19:50 fukachan Exp $ +# $FML: POP3.pm,v 1.3 2005/08/09 03:23:30 fukachan Exp $ # package FML::MUA::POP3; @@ -188,7 +188,7 @@ sub _new_queue_file # Arguments: OBJ($self) HASH_REF($r_args) # Side Effects: none # Return Value: OBJ -sub pick_up_queue +sub pickup_queue { my ($self, $r_args) = @_; my $curproc = $self->{ _curproc }; diff --git a/fml/lib/FML/Process/FetchFML.pm b/fml/lib/FML/Process/FetchFML.pm index bc30146f..c12114e2 100644 --- a/fml/lib/FML/Process/FetchFML.pm +++ b/fml/lib/FML/Process/FetchFML.pm @@ -3,7 +3,7 @@ # Copyright (C) 2005 Ken'ichi Fukamachi # All rights reserved. # -# $FML: FetchFML.pm,v 1.2 2005/06/04 08:49:10 fukachan Exp $ +# $FML: FetchFML.pm,v 1.3 2005/08/10 15:03:28 fukachan Exp $ # package FML::Process::FetchFML; @@ -305,7 +305,7 @@ sub _fetchfml_fake_stdio use FML::MUA::POP3; my $mua = new FML::MUA::POP3 $curproc; if (defined $mua) { - my $queue = $mua->pick_up_queue( { class => $class } ); + my $queue = $mua->pickup_queue( { class => $class } ); # 1. queue to do found. if (defined $queue) { |