[perl #58530] Bus error with constant + overload + stash manipulation + bless

[Father Chrysostomos (via RT) <perlbug-followup@perl.org>]

# New Ticket Created by  Father Chrysostomos 
# Please include the string:  [perl #58530]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=58530 >


Both in perl 5.10 and bleadperl (34237), the following program causes  
a bus error or abort trap when it reaches the ‘bless’:

#!/usr/bin/perl

package foo;
use constant phoo=>bar;
use overload '""' => \&phoo;
bless[];
BEGIN {
         delete $foo::{phoo};
	*foo::foo::phoo = *foo::foo::phoo{SCALAR};
}

The exact error changed in @32708:

----Output of .../pbe6RHv/perl-5.8.0@32707/bin/perl----
Assertion ((((zzzz)->sv_flags & (0x00004000|0x00008000)) ==  
0x00008000) && (((svtype)((zzzz)->sv_flags & 0xff)) == SVt_PVGV ||  
((svtype)((zzzz)->sv_flags & 0xff)) == SVt_PVLV)) failed: file "gv.c",  
line 1647 at test line 7.
Assertion ((((zzzz)->sv_flags & (0x00004000|0x00008000)) ==  
0x00008000) && (((svtype)((zzzz)->sv_flags & 0xff)) == SVt_PVGV ||  
((svtype)((zzzz)->sv_flags & 0xff)) == SVt_PVLV)) failed: file "gv.c",  
line 1647 at test line 7.

----EOF ($?='65280')----
----Output of .../pwk2Dyq/perl-5.8.0@32708/bin/perl----
Assertion failed: (isGV_with_GP(zzzz)), function Perl_Gv_AMupdate,  
file gv.c, line 1647.

----EOF ($?='6')----

(I don’t know if that has anything to do with it.)


In 5.10, I can make the error go away sometimes, but have not reduced  
it to a small reliable case. The above script is more or less  
equivalent to this:

use HTML::DOM::Attr 0.017;
$attr = new HTML::DOM::Attr 'anything';

If you add 'use HTML::DOM' to the beginning of the script, the bus  
error goes away. (BTW, in case I’ve released Sub::Delete 0.02 by the  
time you read this, you have to use version 0.01; the glob assignment  
above mimics a bug in that module).


Father Chrysostomos

---
Flags:
     category=core
     severity=medium
---
Site configuration information for perl 5.11.0:

Configured by sprout at Sun Aug 31 17:02:06 PDT 2008.

Summary of my perl5 (revision 5 version 11 subversion 0 patch 34237)  
configuration:
   Platform:
     osname=darwin, osvers=9.4.0, archname=darwin-2level
     uname='darwin pint.local 9.4.0 darwin kernel version 9.4.0: mon  
jun 9 19:30:53 pdt 2008; root:xnu-1228.5.20~1release_i386 i386 '
     config_args='-de -Dusedevel'
     hint=recommended, useposix=true, d_sigaction=define
     useithreads=undef, usemultiplicity=undef
     useperlio=define, d_sfio=undef, uselargefiles=define,  
usesocks=undef
     use64bitint=undef, use64bitall=undef, uselongdouble=undef
     usemymalloc=n, bincompat5005=undef
   Compiler:
     cc='cc', ccflags ='-fno-common -DPERL_DARWIN -no-cpp-precomp -fno- 
strict-aliasing -pipe -fstack-protector -I/usr/local/include',
     optimize='-O3',
     cppflags='-no-cpp-precomp -fno-common -DPERL_DARWIN -no-cpp- 
precomp -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/ 
include'
     ccversion='', gccversion='4.0.1 (Apple Inc. build 5484)',  
gccosandvers=''
     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
     ivtype='long', ivsize=4, nvtype='double', nvsize=8,  
Off_t='off_t', lseeksize=8
     alignbytes=8, prototype=define
   Linker and Libraries:
     ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -fstack- 
protector -L/usr/local/lib'
     libpth=/usr/local/lib /usr/lib
     libs=-ldbm -ldl -lm -lutil -lc
     perllibs=-ldl -lm -lutil -lc
     libc=/usr/lib/libc.dylib, so=dylib, useshrplib=false,  
libperl=libperl.a
     gnulibc_version=''
   Dynamic Linking:
     dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
     cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup -L/ 
usr/local/lib -fstack-protector'

Locally applied patches:
     DEVEL

---
@INC for perl 5.11.0:
     /usr/local/lib/perl5/5.11.0/darwin-2level
     /usr/local/lib/perl5/5.11.0
     /usr/local/lib/perl5/site_perl/5.11.0/darwin-2level
     /usr/local/lib/perl5/site_perl/5.11.0
     /usr/local/lib/perl5/site_perl
     .

---
Environment for perl 5.11.0:
     DYLD_LIBRARY_PATH (unset)
     HOME=/Users/sprout
     LANG=en_US.UTF-8
     LANGUAGE (unset)
     LD_LIBRARY_PATH (unset)
     LOGDIR (unset)
     PATH=/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/X11/bin:/ 
usr/local/bin
     PERL_BADLANG (unset)
     SHELL=/bin/bash

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---