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)



CC: bug-Encode [...] rt.cpan.org
Subject: [perl #56342] utf-7 codec in Encode uses m/\G/g without resetting pos()
Date: Thu, 19 Apr 2012 17:07:38 -0700
To: "OtherRecipients of perl Ticket #56342":;
From: "Father Chrysostomos via RT" <perlbug-followup [...] perl.org>
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
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.