diff -Nur Email-Simple-Headers-1.01/Changes Email-Simple-Headers-1.02/Changes
--- Email-Simple-Headers-1.01/Changes 2004-07-30 13:57:09.000000000 -0400
+++ Email-Simple-Headers-1.02/Changes 2006-07-03 18:19:16.000000000 -0400
@@ -1,3 +1,8 @@
+1.02 2006-07-03
+
+ - added a test to check that everything works with bodyless messages
+ (bug 13456); no problem found
+
1.01 2004-07-30
- Initial Version
diff -Nur Email-Simple-Headers-1.01/MANIFEST Email-Simple-Headers-1.02/MANIFEST
--- Email-Simple-Headers-1.01/MANIFEST 2004-07-30 13:57:38.000000000 -0400
+++ Email-Simple-Headers-1.02/MANIFEST 2006-07-03 18:20:35.000000000 -0400
@@ -4,4 +4,5 @@
MANIFEST This list of files
META.yml
README
+t/no-body.t
t/test.t
diff -Nur Email-Simple-Headers-1.01/lib/Email/Simple/Headers.pm Email-Simple-Headers-1.02/lib/Email/Simple/Headers.pm
--- Email-Simple-Headers-1.01/lib/Email/Simple/Headers.pm 2004-07-30 14:03:52.000000000 -0400
+++ Email-Simple-Headers-1.02/lib/Email/Simple/Headers.pm 2006-07-03 18:19:30.000000000 -0400
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1];
+$VERSION = '1.02';
package Email::Simple;
use strict;
diff -Nur Email-Simple-Headers-1.01/t/no-body.t Email-Simple-Headers-1.02/t/no-body.t
--- Email-Simple-Headers-1.01/t/no-body.t 1969-12-31 19:00:00.000000000 -0500
+++ Email-Simple-Headers-1.02/t/no-body.t 2006-07-03 18:17:43.000000000 -0400
@@ -0,0 +1,16 @@
+use Test::More qw[no_plan];
+use strict;
+$^W = 1;
+
+use_ok 'Email::Simple';
+use_ok 'Email::Simple::Headers';
+
+my $email = Email::Simple->new(<<'__MESSAGE__');
+From: casey@geeknest.com
+To: drain@example.com
+Subject: Message in a bottle
+__MESSAGE__
+
+can_ok $email, 'headers';
+
+ok eq_set( [qw[From To Subject]], [$email->headers] ), 'have expected headers';