From d8df85fcfa5566de082f95ebb17a68b92c19a1af Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 23 Aug 2003 08:50:43 +0000
Subject: new FML::Mailer $curproc;

---
 fml/lib/FML/Mailer.pm               | 6 +++---
 fml/lib/FML/Process/QueueManager.pm | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/fml/lib/FML/Mailer.pm b/fml/lib/FML/Mailer.pm
index 14cd8eb0..814a4d40 100644
--- a/fml/lib/FML/Mailer.pm
+++ b/fml/lib/FML/Mailer.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: Mailer.pm,v 1.17 2002/12/26 14:00:46 fukachan Exp $
+# $FML: Mailer.pm,v 1.18 2003/08/23 04:35:28 fukachan Exp $
 #
 
 package FML::Mailer;
@@ -66,9 +66,9 @@ standard constructor.
 # Return Value: OBJ
 sub new
 {
-    my ($self) = @_;
+    my ($self, $curproc) = @_;
     my ($type) = ref($self) || $self;
-    my $me     = {};
+    my $me     = { _curproc => $curproc };
     return bless $me, $type;
 }
 
diff --git a/fml/lib/FML/Process/QueueManager.pm b/fml/lib/FML/Process/QueueManager.pm
index 65fe87df..9521c720 100644
--- a/fml/lib/FML/Process/QueueManager.pm
+++ b/fml/lib/FML/Process/QueueManager.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: QueueManager.pm,v 1.13 2003/08/23 04:35:40 fukachan Exp $
+# $FML: QueueManager.pm,v 1.14 2003/08/23 07:24:48 fukachan Exp $
 #
 
 package FML::Process::QueueManager;
@@ -121,7 +121,7 @@ sub _send
     my $msg = Mail::Message->parse( { file => $qfile } );
 
     use FML::Mailer;
-    my $obj = new FML::Mailer;
+    my $obj = new FML::Mailer $curproc;
 
     # XXX queue is already locked and need no lock for recipient maps here.
     my $r   = $obj->send({
-- 
cgit v1.2.1