Changeset 34412 for lang/perl/Encode/trunk/lib/Encode/MIME/Header.pm

Timestamp:

07/13/09 11:22:21 (4 years ago)

Author:

dankogai

Message:

VERSION 2.35

Files:

• lang/perl/Encode/trunk/lib/Encode/MIME/Header.pm (modified) (2 diffs)

lang/perl/Encode/trunk/lib/Encode/MIME/Header.pm

@@ -4 +4 @@
 no warnings 'redefine';
 
-our $VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.11 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 use Encode qw(find_encoding encode_utf8 decode_utf8);
 use MIME::Base64;
@@ -45 +45 @@
 
     # multi-line header to single line
-    $str =~ s/(?:\r\n|[\r\n])[ \t]+//gos;
+    $str =~ s/(?:\r\n|[\r\n])[ \t]//gos;
 
     1 while ( $str =~