diff options
| author | fukachan <fukachan> | 2002-03-16 14:24:58 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-03-16 14:24:58 +0000 |
| commit | 4d296326dca3c8df63f09e01512bac99c1076b95 (patch) | |
| tree | f15806437f7b25ce51f575562df65b28d64ac712 /fml/lib | |
| parent | 05a745dc6e40493c7f1e67dbad42478eb9acf61a (diff) | |
| download | fml8-4d296326dca3c8df63f09e01512bac99c1076b95.tar.gz fml8-4d296326dca3c8df63f09e01512bac99c1076b95.tar.bz2 fml8-4d296326dca3c8df63f09e01512bac99c1076b95.zip | |
reply_message_nl(): fix reply_message() args
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index dc63c628..66981143 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.76.2.2 2002/03/16 10:43:45 fukachan Exp $ +# $FML: Kernel.pm,v 1.77 2002/03/16 10:51:59 fukachan Exp $ # package FML::Process::Kernel; @@ -591,7 +591,11 @@ We need parameters in some cases. They are stored in $args if needed. $curproc->reply_message_nl('kern.not_member', - "you are not a ML member." ); + "you are not a ML member.", + $args); + +This $args is passed through to reply_message(). + =cut @@ -625,10 +629,10 @@ sub reply_message_nl if ($buf =~ /\$/) { $config->expand_variable_in_buffer(\$buf, $args); } - $curproc->reply_message( STR2JIS( $buf ) ); + $curproc->reply_message(STR2JIS( $buf ), $args); } else { - $curproc->reply_message($default_msg); + $curproc->reply_message($default_msg, $args); } } |