[siesta-commit] siesta/lib/Siesta List.pm,1.44,1.45 Message.pm,1.37,1.38

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

From: clampr
Subject: [siesta-commit] siesta/lib/Siesta List.pm,1.44,1.45 Message.pm,1.37,1.38
Date: 15:33 on 16 Mar 2003
Update of /cvsroot/siesta/siesta/lib/Siesta
In directory sc8-pr-cvs1:/tmp/cvs-serv9132/lib/Siesta

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

Index: List.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/List.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- List.pm	16 Mar 2003 13:19:22 -0000	1.44
+++ List.pm	16 Mar 2003 15:33:03 -0000	1.45
@@ -227,7 +227,9 @@
     return map {
         local *FILE;
         open FILE, $_ or die "couldn't open '$_': $!";
-        new Siesta::Message \*FILE;
+        my $message = new Siesta::Message \*FILE;
+        $message->deferred_file( $_ );
+        $message;
     } map { <$path$_/*> } qw( new cur );
 }
 
@@ -243,6 +245,8 @@
 }
 
 =head2 ->pref( $plugin, $name, [$value] );
+
+$value is optional.  if it's undef it's a delete, else it's a set
 
 =cut
 

Index: Message.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- Message.pm	16 Mar 2003 11:58:01 -0000	1.37
+++ Message.pm	16 Mar 2003 15:33:03 -0000	1.38
@@ -26,7 +26,7 @@
 =cut
 
 # make a bunch of header-based accessors
-for (qw( To_raw From_raw Subject siesta_deferred_for )) {
+for (qw( To_raw From_raw Subject siesta_deferred_file siesta_deferred_for siesta_deferred_by )) {
     my $header = $_;
     my $sub_name = $header;
     $header   =~ s/_raw$//;



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