diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2002-05-21 10:06:19 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-20 22:13:45 +0000 |
| commit | f74b3917e5e345d8028ca3d99404011fa7c63158 (patch) | |
| tree | bd97d1215570b30d515355991bedf9c160161494 /ext/Encode/lib | |
| parent | 53783487bb15c46b58182a4a1b824fa286ec26cb (diff) | |
| download | perl-f74b3917e5e345d8028ca3d99404011fa7c63158.tar.gz | |
[Encode] 1.72 released
Message-Id: <85BA0AD1-6C0B-11D6-90A1-0003939A104C@dan.co.jp>
p4raw-id: //depot/perl@16715
Diffstat (limited to 'ext/Encode/lib')
| -rw-r--r-- | ext/Encode/lib/Encode/MIME/Header.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Encode/lib/Encode/MIME/Header.pm b/ext/Encode/lib/Encode/MIME/Header.pm index 09dd55e0db..2844db346f 100644 --- a/ext/Encode/lib/Encode/MIME/Header.pm +++ b/ext/Encode/lib/Encode/MIME/Header.pm @@ -1,7 +1,7 @@ package Encode::MIME::Header; use strict; # use warnings; -our $VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode qw(find_encoding encode_utf8); use MIME::Base64; @@ -51,7 +51,7 @@ sub decode($$;$){ $str =~ s{ =\? # begin encoded word - ([0-9A-Za-z\-]+) # charset (encoding) + ([0-9A-Za-z\-_]+) # charset (encoding) \?([QqBb])\? # delimiter (.*?) # Base64-encodede contents \?= # end encoded word |