Skip Menu |
 

This queue is for tickets about the Encode CPAN distribution.

Report information
The Basics
Id: 76711
Status: resolved
Priority: 0/
Queue: Encode

People
Owner: Nobody in particular
Requestors: perlbug-followup [...] perl.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



From rt-sprout=cpan.org [...] rt.perl.org Thu Apr 19 20: 07:47 2012
CC: bug-Encode [...] rt.cpan.org
MIME-Version: 1.0
In-Reply-To: <48624488.1080908 [...] kapranoff.ru>
X-Spam-Status: No, score=-4.091 tagged_above=-99.9 required=10 tests=[AWL=-2.191, BAYES_00=-1.9] autolearn=ham
X-Spam-Flag: NO
References: <RT-Ticket-56342 [...] perl.org> <48624488.1080908 [...] kapranoff.ru>
Content-Type: text/plain; charset="utf-8"
Message-ID: <rt-3.6.HEAD-4610-1334880457-1725.56342-15-0 [...] perl.org>
Reply-To: perlbug-followup [...] perl.org
X-Virus-Scanned: Debian amavisd-new at bestpractical.com
X-RT-Original-Encoding: utf-8
RT-Originator: sprout [...] cpan.org
X-Spam-Score: -4.091
Managed-BY: RT 3.6.HEAD (http://www.bestpractical.com/rt/)
Received: from localhost (localhost [127.0.0.1]) by hipster.bestpractical.com (Postfix) with ESMTP id 7CD7C2402DF for <cpan-bug+Encode [...] hipster.bestpractical.com>; Thu, 19 Apr 2012 20:07:47 -0400 (EDT)
Received: from hipster.bestpractical.com ([127.0.0.1]) by localhost (hipster.bestpractical.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 7PDeRcEbSjEk for <cpan-bug+Encode [...] hipster.bestpractical.com>; Thu, 19 Apr 2012 20:07:45 -0400 (EDT)
Received: from la.mx.develooper.com (x1.develooper.com [207.171.7.70]) by hipster.bestpractical.com (Postfix) with SMTP id 7CE17240206 for <bug-Encode [...] rt.cpan.org>; Thu, 19 Apr 2012 20:07:45 -0400 (EDT)
Received: (qmail 30587 invoked by uid 103); 20 Apr 2012 00:07:44 -0000
Received: from x16.dev (10.0.100.26) by x1.dev with QMQP; 20 Apr 2012 00:07:44 -0000
Received: from x17.develooper.com (HELO x17.develooper.com) (207.171.7.217) by 16.mx.develooper.com (qpsmtpd/0.80/v0.80-19-gf52d165) with ESMTP; Thu, 19 Apr 2012 17:07:40 -0700
Received: by x17.develooper.com (Postfix, from userid 405) id 7F30B35BD0; Thu, 19 Apr 2012 17:07:38 -0700 (PDT)
Delivered-To: cpan-bug+Encode [...] hipster.bestpractical.com
Subject: [perl #56342] utf-7 codec in Encode uses m/\G/g without resetting pos()
Return-Path: <rt-sprout=cpan.org [...] rt.perl.org>
X-RT-Mail-Extension: encode
X-Original-To: cpan-bug+Encode [...] hipster.bestpractical.com
X-Spam-Check-BY: 16.mx.develooper.com
Date: Thu, 19 Apr 2012 17:07:38 -0700
RT-Ticket: perl #56342
X-Spam-Level:
Precedence: normal
To: "OtherRecipients of perl Ticket #56342":;
X-RT-Loop-Prevention: perl
Content-Transfer-Encoding: 8bit
From: "Father Chrysostomos via RT" <perlbug-followup [...] perl.org>
Content-Length: 3615
Download (untitled) / with headers
text/plain 3.5k
Forwarding to the CPAN queue.... On Wed Jun 25 06:14:05 2008, kappa wrote: Show quoted text
> > This is a bug report for perl from alex@kapranoff.ru, > generated with the help of perlbug 1.36 running under perl 5.10.0. > > > ----------------------------------------------------------------- > > Trivial patch: > > --- lib/Encode/Unicode/UTF7.pm.orig Thu Sep 2 19:53:51 2004 > +++ lib/Encode/Unicode/UTF7.pm Thu Feb 28 17:03:56 2008 > @@ -51,10 +51,11 @@ > 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; > > [Please do not change anything below this line] > ----------------------------------------------------------------- > --- > Flags: > category=core > severity=low > --- > Site configuration information for perl 5.10.0: > > Configured by kappa at Tue Dec 18 22:42:37 MSK 2007. > > Summary of my perl5 (revision 5 version 10 subversion 0) > configuration: > Platform: > osname=linux, osvers=2.6.22-14-generic, > archname=i686-linux-thread-multi-64int-ld > uname='linux aukland 2.6.22-14-generic #1 smp sun oct 14 23:05:12 > gmt 2007 i686 gnulinux ' > config_args='' > hint=recommended, useposix=true, d_sigaction=define > useithreads=define, usemultiplicity=define > useperlio=define, d_sfio=undef, uselargefiles=define, > usesocks=undef > use64bitint=define, use64bitall=undef, uselongdouble=define > usemymalloc=n, bincompat5005=undef > Compiler: > cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE > -fno-strict-aliasing > -pipe -I/usr/local/include -D_LARGEFILE_SOURCE > -D_FILE_OFFSET_BITS=64', > optimize='-O2', > cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe > -I/usr/local/include' > ccversion='', gccversion='4.1.3 20070929 (prerelease) (Ubuntu > 4.1.2-16ubuntu2)', gccosandvers='' > intsize=4, longsize=4, ptrsize=4, doublesize=8, > byteorder=12345678 > d_longlong=define, longlongsize=8, d_longdbl=define, > longdblsize=12 > ivtype='long long', ivsize=8, nvtype='long double', nvsize=12, > Off_t='off_t', lseeksize=8 > alignbytes=4, prototype=define > Linker and Libraries: > ld='cc', ldflags =' -L/usr/local/lib' > libpth=/usr/local/lib /lib /usr/lib /usr/lib64 > libs=-lnsl -lgdbm -ldl -lm -lcrypt -lutil -lpthread -lc > perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc > libc=/lib/libc-2.6.1.so, so=so, useshrplib=false, > libperl=libperl.a > gnulibc_version='2.6.1' > Dynamic Linking: > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' > cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib' > > Locally applied patches: > > > --- > @INC for perl 5.10.0: > /site/lib > /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi-64int-ld > /usr/local/lib/perl5/5.10.0 > /usr/local/lib/perl5/site_perl/5.10.0/i686-linux-thread-multi- > 64int-ld > /usr/local/lib/perl5/site_perl/5.10.0 > . > > --- > Environment for perl 5.10.0: > HOME=/home/kappa > LANG=ru_RU.UTF-8 > LANGUAGE (unset) > LD_LIBRARY_PATH (unset) > LOGDIR (unset) > >
PATH=/home/kappa/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games Show quoted text
> PERLLIB=/site/lib > PERL_BADLANG (unset) > SHELL=/usr/bin/zsh
-- Father Chrysostomos --- via perlbug: queue: perl5 status: new https://rt.perl.org:443/rt3/Ticket/Display.html?id=56342
MIME-Version: 1.0
In-Reply-To: <rt-3.6.HEAD-4610-1334880457-1725.56342-15-0 [...] perl.org>
X-Mailer: MIME-tools 5.427 (Entity 5.427)
Content-Disposition: inline
References: <RT-Ticket-56342 [...] perl.org> <48624488.1080908 [...] kapranoff.ru> <rt-3.6.HEAD-4610-1334880457-1725.56342-15-0 [...] perl.org>
Content-Type: text/plain; charset="UTF-8"
Message-ID: <rt-3.8.HEAD-11168-1344207042-1237.76711-0-0 [...] rt.cpan.org>
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
Content-Length: 3842
Download (untitled) / with headers
text/plain 3.7k
Thank you. applied in my repo. WIll be in 2.45. Dan the Encode Maintainer On Thu Apr 19 20:07:48 2012, perlbug-followup@perl.org wrote: Show quoted text
> Forwarding to the CPAN queue.... > > On Wed Jun 25 06:14:05 2008, kappa wrote:
> > > > This is a bug report for perl from alex@kapranoff.ru, > > generated with the help of perlbug 1.36 running under perl 5.10.0. > > > > > > ----------------------------------------------------------------- > > > > Trivial patch: > > > > --- lib/Encode/Unicode/UTF7.pm.orig Thu Sep 2 19:53:51 2004 > > +++ lib/Encode/Unicode/UTF7.pm Thu Feb 28 17:03:56 2008 > > @@ -51,10 +51,11 @@ > > 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; > > > > [Please do not change anything below this line] > > ----------------------------------------------------------------- > > --- > > Flags: > > category=core > > severity=low > > --- > > Site configuration information for perl 5.10.0: > > > > Configured by kappa at Tue Dec 18 22:42:37 MSK 2007. > > > > Summary of my perl5 (revision 5 version 10 subversion 0) > > configuration: > > Platform: > > osname=linux, osvers=2.6.22-14-generic, > > archname=i686-linux-thread-multi-64int-ld > > uname='linux aukland 2.6.22-14-generic #1 smp sun oct 14
> 23:05:12
> > gmt 2007 i686 gnulinux ' > > config_args='' > > hint=recommended, useposix=true, d_sigaction=define > > useithreads=define, usemultiplicity=define > > useperlio=define, d_sfio=undef, uselargefiles=define, > > usesocks=undef > > use64bitint=define, use64bitall=undef, uselongdouble=define > > usemymalloc=n, bincompat5005=undef > > Compiler: > > cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE > > -fno-strict-aliasing > > -pipe -I/usr/local/include -D_LARGEFILE_SOURCE > > -D_FILE_OFFSET_BITS=64', > > optimize='-O2', > > cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe > > -I/usr/local/include' > > ccversion='', gccversion='4.1.3 20070929 (prerelease) (Ubuntu > > 4.1.2-16ubuntu2)', gccosandvers='' > > intsize=4, longsize=4, ptrsize=4, doublesize=8, > > byteorder=12345678 > > d_longlong=define, longlongsize=8, d_longdbl=define, > > longdblsize=12 > > ivtype='long long', ivsize=8, nvtype='long double', nvsize=12, > > Off_t='off_t', lseeksize=8 > > alignbytes=4, prototype=define > > Linker and Libraries: > > ld='cc', ldflags =' -L/usr/local/lib' > > libpth=/usr/local/lib /lib /usr/lib /usr/lib64 > > libs=-lnsl -lgdbm -ldl -lm -lcrypt -lutil -lpthread -lc > > perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc > > libc=/lib/libc-2.6.1.so, so=so, useshrplib=false, > > libperl=libperl.a > > gnulibc_version='2.6.1' > > Dynamic Linking: > > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-
> E'
> > cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib' > > > > Locally applied patches: > > > > > > --- > > @INC for perl 5.10.0: > > /site/lib > > /usr/local/lib/perl5/5.10.0/i686-linux-thread-multi-64int-ld > > /usr/local/lib/perl5/5.10.0 > > /usr/local/lib/perl5/site_perl/5.10.0/i686-linux-thread-multi- > > 64int-ld > > /usr/local/lib/perl5/site_perl/5.10.0 > > . > > > > --- > > Environment for perl 5.10.0: > > HOME=/home/kappa > > LANG=ru_RU.UTF-8 > > LANGUAGE (unset) > > LD_LIBRARY_PATH (unset) > > LOGDIR (unset) > > > >
>
PATH=/home/kappa/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/gam es Show quoted text
> > PERLLIB=/site/lib > > PERL_BADLANG (unset) > > SHELL=/usr/bin/zsh
> >


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.