Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
  • 2 commits
  • 3 files changed
  • 2 comments
  • 2 contributors

Showing 3 changed files with 35 additions and 2 deletions. Show diff stats Hide diff stats

  1. +4 0 changes.pod
  2. +2 2 lib/MIME/Lite.pm
  3. +29 0 t/mime-version.t
4 changes.pod
Source Rendered
@@ -2,6 +2,10 @@
2 2
3 3 =over 4
4 4
  5 +=item Version 3.029
  6 +
  7 +Allow the MIME-Version header to be replaced (thanks, Florian!)
  8 +
5 9 =item Version 3.028
6 10
7 11 Various documentation fixes
4 lib/MIME/Lite.pm
@@ -352,7 +352,7 @@ use vars qw(
352 352
353 353
354 354 # GLOBALS, EXTERNAL/CONFIGURATION...
355   -$VERSION = '3.028';
  355 +$VERSION = '3.029';
356 356
357 357 ### Automatically interpret CC/BCC for SMTP:
358 358 $AUTO_CC = 1;
@@ -3650,7 +3650,7 @@ for any patches you provide.
3650 3650
3651 3651 =head1 VERSION
3652 3652
3653   -Version: 3.028
  3653 +Version: 3.029
3654 3654
3655 3655 =head1 CHANGE LOG
3656 3656
29 t/mime-version.t
... ... @@ -0,0 +1,29 @@
  1 +#!/usr/bin/perl
  2 +use strict;
  3 +use warnings;
  4 +
  5 +use MIME::Lite;
  6 +use Test::More tests => 3;
  7 +
  8 +my $msg = MIME::Lite->new( Type => "multipart/digest" );
  9 +$msg->attr( 'MIME-Version' => 'qqq' );
  10 +
  11 +my $str = $msg->as_string;
  12 +
  13 +like(
  14 + $str,
  15 + qr/MIME-Version: qqq/,
  16 + '"MIME-Version" header has been set to qqq'
  17 +);
  18 +
  19 +unlike(
  20 + $str,
  21 + qr/MIME-Version: 1\.0/,
  22 + 'default header "MIME-Version: 1.0" is no longer found'
  23 +);
  24 +
  25 +is(
  26 + $str =~ s/MIME-Version: /counted/g,
  27 + 1,
  28 + 'only one MIME-Version header present',
  29 +);

Showing you all comments on commits in this comparison.

fschlich

This file should probably be added to MANIFEST, too. And I like what you did to the formatting of my code :-)

Ricardo Signes
Owner

Thanks, fixed. I forgot that some of my dists don't have their MANIFEST files autogenerated! :)

Something went wrong with that request. Please try again.