[siesta-commit] siesta/lib/Siesta Message.pm,1.38,1.39

[prev] [thread] [next] [lurker] [Date index for 2003/03/16]

From: clampr
Subject: [siesta-commit] siesta/lib/Siesta Message.pm,1.38,1.39
Date: 15:39 on 16 Mar 2003
Update of /cvsroot/siesta/siesta/lib/Siesta
In directory sc8-pr-cvs1:/tmp/cvs-serv11387/lib/Siesta

Modified Files:
	Message.pm 
Log Message:
more defer hacking

Index: Message.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- Message.pm	16 Mar 2003 15:33:03 -0000	1.38
+++ Message.pm	16 Mar 2003 15:39:43 -0000	1.39
@@ -26,7 +26,7 @@
 =cut
 
 # make a bunch of header-based accessors
-for (qw( To_raw From_raw Subject siesta_deferred_file siesta_deferred_for siesta_deferred_by )) {
+for (qw( To_raw From_raw Subject siesta_deferred_file siesta_deferred_for siesta_deferred_from )) {
     my $header = $_;
     my $sub_name = $header;
     $header   =~ s/_raw$//;
@@ -112,8 +112,10 @@
     my $self = shift;
     my %args = @_;
 
-    my $for = delete $args{for} || die "need to know why we're deferring";
-    $self->deferred_for( $for );
+    my $for  = delete $args{for} || die "need to know why we're deferring";
+    my $from = delete $args{from} || die "need to know who can release it";
+    $self->deferred_for ( $for );
+    $self->deferred_from( $from );
 
     # hacky, hopefully this'll go in: http://rt.cpan.org/NoAuth/Bug.html?id=2236
     my $clone = $self->clone;



Generated at 13:57 on 01 Jul 2004 by mariachi 0.52