diff options
Diffstat (limited to 'cpan/Encode/lib/Encode/MIME/Header.pm')
-rw-r--r-- | cpan/Encode/lib/Encode/MIME/Header.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/Encode/lib/Encode/MIME/Header.pm b/cpan/Encode/lib/Encode/MIME/Header.pm index c41797c703..de769ccac7 100644 --- a/cpan/Encode/lib/Encode/MIME/Header.pm +++ b/cpan/Encode/lib/Encode/MIME/Header.pm @@ -3,7 +3,7 @@ use strict; use warnings; no warnings 'redefine'; -our $VERSION = do { my @r = ( q$Revision: 2.13 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.14 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use Encode qw(find_encoding encode_utf8 decode_utf8); use MIME::Base64; use Carp; @@ -135,7 +135,7 @@ sub encode($$;$) { $subline .= ' ' if ($subline =~ /\?=$/ and $word =~ /^=\?/); $subline .= $word; } - $subline and push @subline, $subline; + length($subline) and push @subline, $subline; push @line, join( "\n " => @subline ); } $_[1] = '' if $chk; |