diff options
| author | fukachan <fukachan> | 2005-08-09 03:23:30 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-09 03:23:30 +0000 |
| commit | d4d73814b35b7109e51406bdf8a87cd7f83bce95 (patch) | |
| tree | c7693d332963802f956215ad55da0b38597cd022 /fml | |
| parent | d64bfdfa7a7958b52adcb43531089b5dc812f964 (diff) | |
| download | fml8-d4d73814b35b7109e51406bdf8a87cd7f83bce95.tar.gz fml8-d4d73814b35b7109e51406bdf8a87cd7f83bce95.tar.bz2 fml8-d4d73814b35b7109e51406bdf8a87cd7f83bce95.zip | |
FNF: content_dup2() -> dup_content()
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/MUA/POP3.pm | 4 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/Queue.pm | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/MUA/POP3.pm b/fml/lib/FML/MUA/POP3.pm index dd04affb..7d36ddf8 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.1 2005/06/03 09:39:50 fukachan Exp $ +# $FML: POP3.pm,v 1.2 2005/06/04 07:19:50 fukachan Exp $ # package FML::MUA::POP3; @@ -120,7 +120,7 @@ sub retrieve } else { my $id = $q->id(); - $q->content_dup2($class); + $q->dup_content($class); $q->remove(); $curproc->log("fetched: qid=$id"); } diff --git a/fml/lib/Mail/Delivery/Queue.pm b/fml/lib/Mail/Delivery/Queue.pm index 2128bc93..1bfde914 100644 --- a/fml/lib/Mail/Delivery/Queue.pm +++ b/fml/lib/Mail/Delivery/Queue.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: Queue.pm,v 1.51 2005/05/27 01:22:00 fukachan Exp $ +# $FML: Queue.pm,v 1.52 2005/06/03 12:52:02 fukachan Exp $ # package Mail::Delivery::Queue; @@ -1074,7 +1074,7 @@ sub DESTROY =head1 UTILITIES -=head2 content_dup2($class) +=head2 dup_content($class) duplicate content at a class $class other than incoming. @@ -1085,7 +1085,7 @@ duplicate content at a class $class other than incoming. # Arguments: OBJ($self) STR($class) # Side Effects: none # Return Value: NUM(1 or 0) -sub content_dup2 +sub dup_content { my ($self, $class) = @_; my $id = $self->id(); |