Use quotes to preserve decimal point on MIME-Version

Thanks, ANDK!
metacpan · Jul 26, 2013 · 5c16692 · 5c16692
1 parent bc92cf7
commit 5c16692
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Server/Controller/Login/PAUSE.pm b/lib/MetaCPAN/Server/Controller/Login/PAUSE.pm
@@ -47,7 +47,7 @@ sub index : Path {
                 To             => $author->{email}->[0],
                 From           => 'noreply@metacpan.org',
                 Subject        => "Connect MetaCPAN with your PAUSE account",
-                'MIME-Version' => 1.0,
+                'MIME-Version' => '1.0',
             ],
             body => $self->email_body($author->name, $uri),
         );

diff --git a/t/server/controller/login/pause.t b/t/server/controller/login/pause.t
@@ -40,6 +40,9 @@ sub test_pause_auth {
 
     ok !is_utf8($email->get_body), 'body is octets (no wide characters)';
 
+    # Thanks ANDK!
+    is $email->get_header('MIME-Version'), '1.0', 'valid MIME-Version';
+
     is $email->get_header('to'), "\L$pause_id\@cpan.org", 'To: cpan address';
     like $email->get_header('subject'), qr/\bmetacpan\s.+\sPAUSE\b/i,
         'subject mentions metacpan and pause';