| Subject: | <value> in xml causes segfault |
#!/usr/bin/perl
use XML::Bare;
my $ob = new XML::Bare( text => qq{<?xml
version="1.0"?><value>erower</value>\n} );
my $root = $ob->parse();
$ perl bag_xml_bare.t
Segmentation fault: 11 (core dumped)
Or under perl5.12.0 with -DDEBUGGING:
Assertion failed: (SvTYPE(av) == SVt_PVAV), function Perl_av_push, file
av.c, line 549.
Abort trap: 6 (core dumped)
(gdb) bt
#0 0x0000000800cbabbc in kill () from /lib/libc.so.7
#1 0x0000000800cb9a2b in abort () from /lib/libc.so.7
#2 0x0000000800ca1a15 in __assert () from /lib/libc.so.7
#3 0x00000000004e0cd2 in Perl_av_push (av=0x8010d40c8, val=0x800e813a8)
at av.c:549
#4 0x0000000801603d8e in cxml2obj () at Bare.c:122
#5 0x0000000801603f7b in cxml2obj () at Bare.c:104
#6 0x0000000801603f7b in cxml2obj () at Bare.c:104
#7 0x0000000801603f7b in cxml2obj () at Bare.c:104
#8 0x0000000801603f7b in cxml2obj () at Bare.c:104
#9 0x0000000801603f7b in cxml2obj () at Bare.c:104
#10 0x0000000801603f7b in cxml2obj () at Bare.c:104
#11 0x0000000801604813 in XS_XML__Bare_xml2obj (cv=Variable "cv" is not
available.
) at Bare.c:321
#12 0x00000000004e7a86 in Perl_pp_entersub () at pp_hot.c:2882
#13 0x00000000004aea0a in Perl_runops_debug () at dump.c:2049
#14 0x000000000043d84d in perl_run (my_perl=Variable "my_perl" is not
available.
) at perl.c:2308
#15 0x000000000041c764 in main (argc=2, argv=0x7fffffffeaa8,
env=0x7fffffffeac0) at perlmain.c:117