[Bps-public-commit] Net-IMAP-Server branch, master, updated. 1.27-4-ga7f5e24

[Alex Vandiver]

The branch, master has been updated
       via  a7f5e24e026b4794b2fb8021c26a338722f7874e (commit)
      from  dc9195e599841b46209065c1be5bb791170c0f76 (commit)

Summary of changes:
 lib/Net/IMAP/Server/Message.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit a7f5e24e026b4794b2fb8021c26a338722f7874e
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Tue Jun 8 11:36:13 2010 -0400

    06cb857 put the %n on the wrong format

diff --git a/lib/Net/IMAP/Server/Message.pm b/lib/Net/IMAP/Server/Message.pm
index b5cf720..6294dd4 100644
--- a/lib/Net/IMAP/Server/Message.pm
+++ b/lib/Net/IMAP/Server/Message.pm
@@ -12,7 +12,7 @@ use DateTime;
 
 use DateTime::Format::Strptime;
 use DateTime::Format::Mail;
-use constant INTERNALDATE_PARSER => DateTime::Format::Strptime->new(pattern => "%e-%b-%Y %T %z");
+use constant INTERNALDATE_PARSER => DateTime::Format::Strptime->new(pattern => "%n%e-%b-%Y %T %z");
 use constant HEADERDATE_PARSER => DateTime::Format::Mail->new->loose;
 
 # Canonical capitalization
@@ -79,7 +79,7 @@ sub internaldate {
     my $value = shift;
 
     if (ref $value) {
-        $self->{internaldate} = $value->strftime("%n%e-%b-%Y %T %z");
+        $self->{internaldate} = $value->strftime("%e-%b-%Y %T %z");
     } else {
         $self->{internaldate} = $value;
         $value = $self->INTERNALDATE_PARSER->parse_datetime($value);

-----------------------------------------------------------------------