[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]
[perl #55658] Re: panic: free from wrong pool with latest perl-5.10.0-RC2 release, FC-6, gcc-4.1.2(RedHat)
# New Ticket Created by Jason Vas Dias
# Please include the string: [perl #55658]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=55658 >
On Thursday 12 June 2008, Jason Vas Dias <jason@localhost.localdomain> wrote:
>
> This is a bug report for perl from jvdias@research.att.com,
> generated with the help of perlbug 1.36 running under perl 5.10.0.
>
>
> -----------------------------------------------------------------
> [Please enter your report here]
> $ perl -I. -e 'use MyModule; MyModule::GetOptions; print $MyModule::a_scalar;' -- -d -dy /usr/local/ds_bin
> Prototype mismatch: sub MyModule::GetOptions (@) vs none at MyModule.pm line 655.
> GetOptions: ...carp...
> panic: free from wrong pool at QryGen.pm line 322.
> Attempt to free unreferenced scalar: SV 0x8b3cbd4, Perl interpreter: 0x8b12008 at QryGen.pm line 322.
>
>
> Okay, maybe "MyModule.pm" is being developed and has problems - but
> perl should not panic in this case. MyModule.pm line 322:
>
> foreach $varg ( "\L$arg\E", "\U$arg\E" )
>
> I downloaded the perl-5.10.0-RC2 release tarball from Rafael Garcia Suarez's
> website and configured / built with default FC-6 compiler, then did
> $ cpan
> ..> upgrade
>
> All tests in 'make test', except those skipped, succeeded.
>
> Then I get this 'free from wrong pool' error.
>
> Is this fixed currently ?
>
> Am I doing something wrong ?
>
> Anyone got any suggestions how to fix ?
>
> Please tell me this is not the same as the other 'free from wrong pool'
> bug #43090 that was marked fixed in May 2007.
>
> [Please do not change anything below this line]
> -----------------------------------------------------------------
> ---
> Flags:
> category=core
> severity=high
> ---
> Site configuration information for perl 5.10.0:
>
> Configured by AT&T Research, Inc. at Thu Jun 12 00:36:18 EDT 2008.
>
> Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
> Platform:
> osname=linux, osvers=2.6.22.14-72.fc6, archname=i386-linux-thread-multi
> uname='linux jvdsibm 2.6.22.14-72.fc6 #1 smp wed nov 21 15:12:59 est 2007 i686 i686 i386 gnulinux '
> config_args='-des -Doptimize=-O -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables -Dversion=5.10.0 -Dmyhostname=jvdspc -Dperladmin=jvdias@research.att.com -Dcc=gcc -Dcf_by=AT&T Research, Inc. -Dinstallprefix=/usr -Dprefix=/usr -Darchname=i386-linux -Dvendorprefix=/usr -Dsiteprefix=/usr -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Dd_dosuid -Dd_semctl_semun -Di_db -Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl=y -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -Dd_gethostent_r_proto -Ud_endhostent_r_proto -Ud_sethostent_r_proto -Ud_endprotoent_r_proto -Ud_setprotoent_r_proto -Ud_endservent_r_proto -Ud_setservent_r_proto -Dinc_version_list=5.8.8 5.8.7 5.8.6 5.8.5 -Dscriptdir=/usr/bin'
> hint=recommended, useposix=true, d_sigaction=define
> useithreads=define, usemultiplicity=define
> useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
> use64bitint=undef, use64bitall=undef, uselongdouble=undef
> usemymalloc=n, bincompat5005=undef
> Compiler:
> cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBUGGING -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
> optimize='-O -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables',
> cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBUGGING -fno-strict-aliasing -pipe -I/usr/local/include -I/usr/include/gdbm'
> ccversion='', gccversion='4.1.2 20070626 (Red Hat 4.1.2-13)', gccosandvers=''
> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
> alignbytes=4, prototype=define
> Linker and Libraries:
> ld='gcc', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /lib /usr/lib
> libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
> perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
> libc=/lib/libc-2.5.so, so=so, useshrplib=true, libperl=libperl.so
> gnulibc_version='2.5'
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.10.0/i386-linux-thread-multi/CORE'
> cccdlflags='-fPIC', lddlflags='-shared -O -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables -L/usr/local/lib'
>
> Locally applied patches:
>
>
> ---
> @INC for perl 5.10.0:
> /usr/lib/perl5/5.10.0/i386-linux-thread-multi
> /usr/lib/perl5/5.10.0
> /usr/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.10.0
> /usr/lib/perl5/site_perl/5.8.8
> /usr/lib/perl5/site_perl/5.8.7
> /usr/lib/perl5/site_perl/5.8.6
> /usr/lib/perl5/site_perl/5.8.5
> /usr/lib/perl5/site_perl
> /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.10.0
> /usr/lib/perl5/vendor_perl/5.8.8
> /usr/lib/perl5/vendor_perl/5.8.7
> /usr/lib/perl5/vendor_perl/5.8.6
> /usr/lib/perl5/vendor_perl/5.8.5
> /usr/lib/perl5/vendor_perl
> .
>
> ---
> Environment for perl 5.10.0:
> HOME=/home/jason
> LANG=en_US.UTF-8
> LANGUAGE (unset)
> LD_LIBRARY_PATH (unset)
> LOGDIR (unset)
> PATH=/bin:.:/usr/local/ds_bin:/usr/kerberos/bin:/usr/bin:/sbin:/usr/sbin:/usr/local/bin:/usr/X11R6/bin:/home/jason/bin:/home/jason:..:../..:../../..
> PERL_BADLANG (unset)
> SHELL=/bin/bash
>
And here is a test module with same profile :
package t;
BEGIN
{
%t::Options = ( 'debug' , 1 ) ;
%t::env_vars =
(
't' , [ 'APP_T', 'T', 'T_T' ]
);
}
sub debug
{
if( !exists($t::Options{'debug'}) )
{
return;
}
print STDERR '<debug>',"\n",@_,((!($_[-1]=~/[\n\r]+$/s))?"\n".'</debug>'."\n":'</debug>');
}
sub test
{
my ($vorig, $var, $varg, $arg, $pfx, $sfx, %valiases);
$var = $vorig;
$var = $_[0];
$var =~ s/[_\-]//g;
($varg,$arg) = ("\U$var\E","\L$var\E");
if( ! exists( $valiases{$arg} ) )
{
debug( "alias: $arg : $var" );
$valiases{$arg} = $var;
}
if( ! exists( $valiases{$varg} ) )
{
debug( "alias: $varg : $var" );
$valiases{$varg} = $var;
}
if ( exists( $t::env_vars{ $var } ) )
{
foreach $varg ( @{$t::env_vars{$var}} )
{
debug('env? :'.$varg);
$arg = $varg;
$arg =~ s/[_\-]//g;
foreach $arg ( "\L$arg\E", "\U$arg\E" )
{
if( ! exists( $valiases{$arg} ) )
{
debug( "env: $arg : $var" );
$valiases{$arg} = $var;
}
}
if( ($pfx, $sfx) = ($varg =~ /([^_\-]+)[_\-]([^_\-]+)/))
{
foreach $arg ( $varg, $pfx.'_'.$sfx,$pfx.'-'.$sfx)
{
foreach $varg ( "\L$arg\E", "\U$arg\E" )
{
if( ! exists( $valiases{$varg} ) )
{
debug( "alias: $varg : $var" );
$valiases{$varg} = $var;
}
}
}
}
}
}else
{
if( ($pfx, $sfx) = ($var =~ /([^_\-]+)[_\-]([^_\-]+)/))
{
foreach $arg ( $var, $pfx.'_'.$sfx,$pfx.'-'.$sfx)
{
foreach $varg ( "\L$arg\E", "\U$arg\E" )
{
if( ! exists( $valiases{$varg} ) )
{
debug( "alias: $varg : $var" );
$valiases{$varg} = $var;
}
}
}
}
}
return sort keys %valiases;
}
test('t');
1;
---
$ perl -I. t.pm
<debug>
alias: t : t
</debug>
<debug>
alias: T : t
</debug>
<debug>
env? :APP_T
</debug>
<debug>
env: appt : t
</debug>
<debug>
env: APPT : t
</debug>
<debug>
alias: app_t : t
</debug>
<debug>
alias: APP_T : t
</debug>
panic: free from wrong pool at t.pm line 59.
Attempt to free unreferenced scalar: SV 0x93a816c, Perl interpreter: 0x9389008 at t.pm line 59.
---
The PERL release I downloaded was that for 'PERL Source' on CPAN :
http://search.cpan.org/~rgarcia/perl-5.10.0/
Is this the wrong release to build for the latest perl-5.10.0 tested maintenance patches ?
If not, please send a link to SVN / CVS RSYNC where I can download. What happened to 'perl-maint'
rsync target ?
What went wrong ?
OK, it maybe is a rather silly bit of perl, but it is very similar to a tiny bit of non-silly perl
that I am trying to debug ...
any ideas anyone ?
TIA, JVD
- Follow-Ups from:
-
Nicholas Clark <nick@ccl4.org>
[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]