Bug #36180 for Encode-IMAPUTF7: Two warnings

Sun May 25 21:51:02 2008 cpan [...] robm.fastmail.fm - Ticket created

Subject:

Two warnings

When running perl with warnings enabled, Encode::IMAPUTF7 generates at least two. # perl -w -e 'use Encode; use Encode::IMAPUTF7 (); $a="T&AOY-nketank\n"; Encode::from_to($a, "IMAP-UTF-7", "utf-8"); print $a;' Prototype mismatch: sub Encode::IMAPUTF7::decode ($$;$) vs none at /usr/share/perl5/Encode/IMAPUTF7.pm line 76. Use of uninitialized value in numeric lt (<) at /usr/share/perl5/Encode/IMAPUTF7.pm line 56. Tænketank # Annoying.

Fri Feb 13 03:57:56 2009 peter [...] makholm.net - Correspondence added

Fixed by the attached patch

diff -Naur Encode-IMAPUTF7-1.00.patched/lib/Encode/IMAPUTF7.pm Encode-IMAPUTF7-1.00/lib/Encode/IMAPUTF7.pm --- Encode-IMAPUTF7-1.00.patched/lib/Encode/IMAPUTF7.pm 2009-02-13 09:56:16.000000000 +0100 +++ Encode-IMAPUTF7-1.00/lib/Encode/IMAPUTF7.pm 2005-09-28 16:06:32.000000000 +0200 @@ -49,11 +49,10 @@ return $bytes; } -sub decode($$;$){ +sub decode{ my ($obj, $bytes, $chk) = @_; my $len = length($bytes); my $str = ""; - pos($bytes) = 0; while (pos($bytes) < $len) { if ($bytes =~ /\G([^&]+)/ogc) { $str .= $1;

Fri Feb 13 03:57:58 2009 The RT System itself - Status changed from 'new' to 'open'

Tue Feb 17 01:42:04 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:05 2009 peter [...] makholm.net - Status changed from 'open' to 'resolved'