Bug #40827 for Encode-IMAPUTF7: Encode::IMAPUTF7 does not work with Perl 5.10

Tue Nov 11 00:38:09 2008 osamu.mihara [...] fujixerox.co.jp - Ticket created

Subject:	Encode::IMAPUTF7 does not work with Perl 5.10
Date:	Tue, 11 Nov 2008 14:37:28 +0900
To:	bug-Encode-IMAPUTF7 [...] rt.cpan.org
From:	Osamu MIHARA <osamu.mihara [...] fujixerox.co.jp>

Hi, Here is a patch to make Encode::IMAPUTF7 work with Perl 5.10. Enjoy!

*** ../5.8.0/Encode/IMAPUTF7.pm Wed Sep 28 23:06:32 2005 --- Encode/IMAPUTF7.pm Tue Nov 11 14:33:52 2008 *************** *** 36,42 **** if ($1 eq "&"){ $bytes .= "&-"; }else{ ! my $base64 = encode_base64($e_utf16->encode($1), ''); $base64 =~ s/=+$//; $base64 =~ s/\//,/g; $bytes .= "&$base64-"; --- 36,43 ---- if ($1 eq "&"){ $bytes .= "&-"; }else{ ! my $s = $1; ! my $base64 = encode_base64($e_utf16->encode($s), ''); $base64 =~ s/=+$//; $base64 =~ s/\//,/g; $bytes .= "&$base64-";

Tue Nov 11 05:01:16 2008 sava.chankov [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #40827] Encode::IMAPUTF7 does not work with Perl 5.10
Date:	Tue, 11 Nov 2008 12:00:56 +0200
To:	bug-Encode-IMAPUTF7 [...] rt.cpan.org, osamu.mihara [...] fujixerox.co.jp
From:	"Sava Chankov" <sava.chankov [...] gmail.com>

Hi Osamu, I am no longer involved with Encode-IMAPUTF7. Would you like to become its maintainer? cheers, Sava 2008/11/11 Osamu MIHARA via RT <bug-Encode-IMAPUTF7@rt.cpan.org> Show quoted text

> Tue Nov 11 00:38:09 2008: Request 40827 was acted upon. > Transaction: Ticket created by osamu.mihara@fujixerox.co.jp > Queue: Encode-IMAPUTF7 > Subject: Encode::IMAPUTF7 does not work with Perl 5.10 > Broken in: (no value) > Severity: (no value) > Owner: Nobody > Requestors: osamu.mihara@fujixerox.co.jp > Status: new > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=40827 > > > > Hi, Here is a patch to make Encode::IMAPUTF7 work with Perl 5.10. Enjoy! > > > *** ../5.8.0/Encode/IMAPUTF7.pm Wed Sep 28 23:06:32 2005 > --- Encode/IMAPUTF7.pm Tue Nov 11 14:33:52 2008 > *************** > *** 36,42 **** > if ($1 eq "&"){ > $bytes .= "&-"; > }else{ > ! my $base64 = encode_base64($e_utf16->encode($1), ''); > $base64 =~ s/=+$//; > $base64 =~ s/\//,/g; > $bytes .= "&$base64-"; > --- 36,43 ---- > if ($1 eq "&"){ > $bytes .= "&-"; > }else{ > ! my $s = $1; > ! my $base64 = encode_base64($e_utf16->encode($s), ''); > $base64 =~ s/=+$//; > $base64 =~ s/\//,/g; > $bytes .= "&$base64-"; > >

Tue Nov 11 05:01:20 2008 The RT System itself - Status changed from 'new' to 'open'

Tue Feb 17 01:42:32 2009 peter [...] makholm.net - Correspondence added

This issues should be fixed in Encode::IMPAUTF7-1.01 just uploaded to CPAN

Tue Feb 17 01:42:33 2009 peter [...] makholm.net - Status changed from 'open' to 'resolved'