Changeset 11379 for lang/perl/Jcode

Timestamp:

05/11/08 03:16:17 (7 months ago)

Author:

dankogai

Message:

Version 2.07

Location:

lang/perl/Jcode/trunk

Files:

• Changes (modified) (1 diff)
• Jcode.pm (modified) (5 diffs)

lang/perl/Jcode/trunk/Changes

@@ -1 +1 @@
 #
-# $Id: Changes,v 2.6 2006/07/02 07:56:06 dankogai Exp dankogai $
+# $Id: Changes,v 2.7 2008/05/10 18:15:19 dankogai Exp dankogai $
 #
-$Revision: 2.6 $ $Date: 2006/07/02 07:56:06 $
+$Revision: 2.7 $ $Date: 2008/05/10 18:15:19 $
+! Jcode.pm
+  fixed: mime_encode doesn't work properly
+  patch appled but the default value of $lf is reverted.
+  http://rt.cpan.org/Ticket/Display.html?id=29049
+
+2.06 2006/07/02 07:56:06
 ! Jcode.pm t/regex.t t/tr.t
   Security fix by Hanabusa-san that prevents options from being eval'ed.

lang/perl/Jcode/trunk/Jcode.pm

@@ -1 +1 @@
 #
-# $Id: Jcode.pm,v 2.6 2006/07/02 07:56:06 dankogai Exp dankogai $
+# $Id: Jcode.pm,v 2.7 2008/05/10 18:15:19 dankogai Exp dankogai $
 #
 
@@ -9 +9 @@
 use vars qw($RCSID $VERSION $DEBUG);
 
-$RCSID = q$Id: Jcode.pm,v 2.6 2006/07/02 07:56:06 dankogai Exp dankogai $;
-$VERSION = do { my @r = (q$Revision: 2.6 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$RCSID = q$Id: Jcode.pm,v 2.7 2008/05/10 18:15:19 dankogai Exp dankogai $;
+$VERSION = do { my @r = (q$Revision: 2.7 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 $DEBUG = 0;
 
@@ -427 +427 @@
 sub _add_encoded_word {
     require MIME::Base64;
-    my($str, $line, $bpl) = @_;
+    my($str, $line, $lf, $bpl) = @_;
     my $result = '';
     while (length($str)) {
@@ -434 +434 @@
         if (length($line) + 22 +
             ($target =~ /^(?:$RE{EUC_0212}|$RE{EUC_C})/o) * 8 > $bpl) {
-            $line =~ s/[ \t\n\r]*$/\n/;
+            $line =~ s/[ \t\n\r]*$/$lf/eo;
             $result .= $line;
             $line = ' ';
@@ -484 +484 @@
             }
         } else {
-            $header = _add_encoded_word($word, $header, $bpl);
+            $header = _add_encoded_word($word, $header, $lf, $bpl);
         }
         $header =~ /(?:.*\n)*(.*)/;