| Subject: | Encode::IMAPUTF7 - Странный глюк |
| Date: | Fri, 28 Jul 2006 16:40:00 +0400 |
| To: | bug-Encode-IMAPUTF7 [...] rt.cpan.org |
| From: | "Vasily i. Redkin" <vir [...] otvt.ru> |
Выглядит следующим образом:
============
$ perl 0-test.t 1..1
Modification of a read-only value attempted at Encode/IMAPUTF7.pm line 39.
# Looks like your test died before it could output anything.
============
Версии:
Perl v5.8.4
Encode 2.18 (последняя с cpan)
В качестве временного решения использую следующее исправление:
============
---
/home/vir/.cpan/build/Encode-IMAPUTF7-1.00/blib/lib/Encode/IMAPUTF7.pm
2006-07-28 16:32:03.660464964 +0400
+++
/home/vir/.cpan/build/Encode-IMAPUTF7-1.00/blib/lib/Encode/IMAPUTF7.pm-new
2006-07-28 16:31:49.567303656 +0400
@@ -36,7 +36,8 @@
if ($1 eq "&"){
$bytes .= "&-";
}else{
- my $base64 = encode_base64($e_utf16->encode($1), '');
+ my $t=$1;
+ my $base64 = encode_base64($e_utf16->encode($t), '');
$base64 =~ s/=+$//;
$base64 =~ s/\//,/g;
$bytes .= "&$base64-";
============