develooper Front page | perl.perl5.porters | Postings from June 2008

[perl #55658] Re: panic: free from wrong pool with latest perl-5.10.0-RC2 release, FC-6, gcc-4.1.2(RedHat)

Thread Previous
From:
Jason Vas Dias
Date:
June 12, 2008 04:50
Subject:
[perl #55658] Re: panic: free from wrong pool with latest perl-5.10.0-RC2 release, FC-6, gcc-4.1.2(RedHat)
Message ID:
rt-3.6.HEAD-18229-1213259144-1352.55658-75-0@perl.org
# 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





Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About