diff options
| author | fukachan <fukachan> | 2005-08-11 04:33:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-11 04:33:40 +0000 |
| commit | 45557d3118aefcf8a3ad0470f1e22b312f2865e3 (patch) | |
| tree | ce4af341309bb5b7e7c8534d6c6009b597f2f779 /fml/lib/FML/Process | |
| parent | 38ed86d9473a9370ba691122ca8e5d554009410e (diff) | |
| download | fml8-45557d3118aefcf8a3ad0470f1e22b312f2865e3.tar.gz fml8-45557d3118aefcf8a3ad0470f1e22b312f2865e3.tar.bz2 fml8-45557d3118aefcf8a3ad0470f1e22b312f2865e3.zip | |
get_preferred_XXX() -> _get_preferred_XXX() due to internal use.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index c1ef1d9d..9cf327b5 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.263 2005/08/10 13:09:46 fukachan Exp $ +# $FML: Kernel.pm,v 1.264 2005/08/10 15:03:26 fukachan Exp $ # package FML::Process::Kernel; @@ -1661,7 +1661,7 @@ If given, makefml/fml ignores message output. sub reply_message { my ($curproc, $msg, $rm_args) = @_; - my $lang_list = $curproc->get_preferred_languages(); + my $lang_list = $curproc->_get_preferred_languages(); for my $lang (@$lang_list) { my $rm_charset = $curproc->lang_to_charset("report_mail", $lang); @@ -2000,7 +2000,7 @@ This $args is passed through to reply_message(). sub reply_message_nl { my ($curproc, $class, $default_msg, $rm_args) = @_; - my $lang_list = $curproc->get_preferred_languages(); + my $lang_list = $curproc->_get_preferred_languages(); for my $lang (@$lang_list) { my $rm_charset = $curproc->lang_to_charset("report_mail", $lang); @@ -2178,18 +2178,11 @@ sub caller_info } -=head2 get_preferred_languages() - -return preferred languages e.g. [ ja ], [ ja en ]... in this system. - -=cut - - # Descriptions: return preferred languages e.g. [ ja ], [ ja en ]... # Arguments: OBJ($curproc) # Side Effects: none # Return Value: ARRAY_REF -sub get_preferred_languages +sub _get_preferred_languages { my ($curproc) = @_; my $config = $curproc->config(); @@ -2216,10 +2209,10 @@ sub get_preferred_languages # Arguments: OBJ($curproc) # Side Effects: none # Return Value: ARRAY_REF -sub get_preferred_charsets +sub _get_preferred_charsets { my ($curproc) = @_; - my $lang_order = $curproc->get_preferred_languages(); + my $lang_order = $curproc->_get_preferred_languages(); my $list = []; use Mail::Message::Charset; @@ -2508,7 +2501,7 @@ sub queue_in # XXX-TODO: accept-language: information. if ($s) { # use [ iso-2022-jp us-ascii ] not [ ja en ] list. - my $list = $curproc->get_preferred_charsets(); + my $list = $curproc->_get_preferred_charsets(); for my $charset (@$list) { if ($s{$charset}) { $msg->attach(Type => "text/plain; charset=$charset", |