diff options
| author | fukachan <fukachan> | 2001-05-06 13:28:46 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-05-06 13:28:46 +0000 |
| commit | 5d84469e56b8cce21b7eaa4dba3c42ce418a246d (patch) | |
| tree | df441cf585cc00c4c39b529efe0f6b06b700dc49 | |
| parent | 43377d077b1208d8b53489fa40c442bf361b0dfc (diff) | |
| download | fml8-5d84469e56b8cce21b7eaa4dba3c42ce418a246d.tar.gz fml8-5d84469e56b8cce21b7eaa4dba3c42ce418a246d.tar.bz2 fml8-5d84469e56b8cce21b7eaa4dba3c42ce418a246d.zip | |
s/queue->queue_file/queue->filename/
| -rwxr-xr-x | regress/message/send2.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/regress/message/send2.pl b/regress/message/send2.pl index cb318872..8fb1a567 100755 --- a/regress/message/send2.pl +++ b/regress/message/send2.pl @@ -5,7 +5,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: send.pl,v 1.1 2001/05/05 13:50:59 fukachan Exp $ +# $FML: send2.pl,v 1.1 2001/05/06 13:00:11 fukachan Exp $ # use strict; @@ -44,14 +44,12 @@ my $obj = new Mail::Message::Queue { directory => "/tmp" }; $obj->in( $msg ) || croak("fail to queue in"); $obj->activate() || croak("fail to activate queue"); -my $qf = $obj->queue_file(); - use FML::Mailer; my $m = new FML::Mailer; $m->send( { sender => $sender, recipient => $rcpt, - file => $qf, + file => $obj->filename(), }); $obj->remove; |