diff options
| author | fukachan <fukachan> | 2004-06-26 11:43:42 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-06-26 11:43:42 +0000 |
| commit | 22d7fb5a6ff8d9ed3c0a3dcd5f27c1bfeb691137 (patch) | |
| tree | c1f64f4d77e40a847c4eb972bd240d4d1eca40db /fml | |
| parent | 9b1412b7aa7576fa5f3a062327da88a48f6b65ba (diff) | |
| download | fml8-22d7fb5a6ff8d9ed3c0a3dcd5f27c1bfeb691137.tar.gz fml8-22d7fb5a6ff8d9ed3c0a3dcd5f27c1bfeb691137.tar.bz2 fml8-22d7fb5a6ff8d9ed3c0a3dcd5f27c1bfeb691137.zip | |
fix comments.
bug fix reset of $command_args .
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Command/User/summary.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/fml/lib/FML/Command/User/summary.pm b/fml/lib/FML/Command/User/summary.pm index 1a5e1999..bdfdf218 100644 --- a/fml/lib/FML/Command/User/summary.pm +++ b/fml/lib/FML/Command/User/summary.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: summary.pm,v 1.19 2004/04/23 04:10:32 fukachan Exp $ +# $FML: summary.pm,v 1.20 2004/04/23 04:15:58 fukachan Exp $ # package FML::Command::User::summary; @@ -18,7 +18,7 @@ use FML::Command::SendFile; =head1 NAME -FML::Command::User::summary - send back ML's summary file +FML::Command::User::summary - send back ML's summary file. =head1 SYNOPSIS @@ -35,7 +35,7 @@ send back summary file. =cut -# Descriptions: standard constructor +# Descriptions: constructor. # Arguments: OBJ($self) # Side Effects: none # Return Value: OBJ @@ -48,14 +48,14 @@ sub new } -# Descriptions: need lock or not +# Descriptions: need lock or not. # Arguments: none # Side Effects: none # Return Value: NUM( 1 or 0) sub need_lock { 1;} -# Descriptions: lock channel +# Descriptions: lock channel. # Arguments: none # Side Effects: none # Return Value: STR @@ -75,6 +75,7 @@ sub process if (-f $article_summary_file) { $command_args->{ _filepath_to_send } = $article_summary_file; $self->send_file($curproc, $command_args); + delete $command_args->{ _filepath_to_send }; } else { $curproc->reply_message_nl('error.no_such_file', |