diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Encode/MIME/Header.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Encode/MIME/Header.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Encode/MIME/Header.pm b/Master/tlpkg/tlperl/lib/Encode/MIME/Header.pm index c41797c7035..090a177d113 100644 --- a/Master/tlpkg/tlperl/lib/Encode/MIME/Header.pm +++ b/Master/tlpkg/tlperl/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.15 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use Encode qw(find_encoding encode_utf8 decode_utf8); use MIME::Base64; use Carp; @@ -31,7 +31,7 @@ $Encode::Encoding{'MIME-Q'} = bless { Name => 'MIME-Q', } => __PACKAGE__; -use base qw(Encode::Encoding); +use parent qw(Encode::Encoding); sub needs_lines { 1 } sub perlio_ok { 0 } @@ -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; |