/[suikacvs]/test/cvs
Suika

Diff of /test/cvs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by wakaba, Sun Mar 31 13:12:41 2002 UTC revision 1.13 by wakaba, Mon Apr 1 05:32:37 2002 UTC
# Line 54  when C<stringify>.  (Default = 0) Line 54  when C<stringify>.  (Default = 0)
54    parse_all     => -1,    parse_all     => -1,
55  );  );
56  my @field_type_Structured = qw(cancel-lock  my @field_type_Structured = qw(cancel-lock
57    importance mime-version path precedence x-cite    importance path precedence
58    x-face x-mail-count x-msmail-priority x-priority x-uidl xref);    x-face x-mail-count x-msmail-priority x-priority xref);
59  for (@field_type_Structured)  for (@field_type_Structured)
60    {$DEFAULT{field_type}->{$_} = 'Message::Field::Structured'}    {$DEFAULT{field_type}->{$_} = 'Message::Field::Structured'}
61  my @field_type_Address = qw(approved bcc cc delivered-to disposition-notification-to  my @field_type_Address = qw(approved bcc cc delivered-to disposition-notification-to
# Line 98  for (qw(subject title x-nsubject)) Line 98  for (qw(subject title x-nsubject))
98    {$DEFAULT{field_type}->{$_} = 'Message::Field::Subject'}    {$DEFAULT{field_type}->{$_} = 'Message::Field::Subject'}
99  for (qw(list-software user-agent server))  for (qw(list-software user-agent server))
100    {$DEFAULT{field_type}->{$_} = 'Message::Field::UA'}    {$DEFAULT{field_type}->{$_} = 'Message::Field::UA'}
101    for (qw(content-length lines max-forwards mime-version))
102      {$DEFAULT{field_type}->{$_} = 'Message::Field::Numval'}
103    
104  =head2 Message::Header->new ([%option])  =head2 Message::Header->new ([%option])
105    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24