Allow headers with whitespace prefixes

houseabsolute · Aug 15, 2014 · c3e6971 · c3e6971
1 parent f1f1abb
commit c3e6971
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/lib/Courriel/Header.pm b/lib/Courriel/Header.pm
@@ -64,6 +64,8 @@ sub as_string {
 {
     my $header_chunk = qr/
                              (?:
+                                ^
+                             |
                                  (?<ascii>[\x21-\x7e]+)   # printable ASCII (excluding space, \x20)
                              |
                                  (?<non_ascii>\S+)        # anything that's not space

diff --git a/t/Headers.t b/t/Headers.t
@@ -141,6 +141,18 @@ EOF
     );
 }
 
+{
+    my $h = Courriel::Headers->new();
+
+    $h->add( Subject => ' test' );
+
+    is(
+        $h->as_string,
+        "Subject:  test\r\n",
+        'Headers prefixed by whitespace are not blank'
+    );
+}
+
 {
     my ( $val, $attrs )
         = Courriel::Helpers::parse_header_with_attributes(