Perl 5.10.0 crash with a segmentation fault when using module Tcl
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
perl (Ubuntu) |
New
|
Undecided
|
Unassigned |
Bug Description
I'm not sure if this is a perl bug or a tcl-dev bug
Compiling Tcl module from source
...
Testing Tcl module
giacomo@
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils:
t/call.........ok
t/constants....ok
t/createcmd....ok
t/eval.........ok
t/info.........ok
t/result.......ok
t/subclass.....ok
t/trace........ok
t/unicode......ok
t/var..........ok
All tests successful.
Files=10, Tests=53, 1 wallclock secs ( 0.27 cusr + 0.08 csys = 0.35 CPU)
Tests are successfull
Locating any previous presence of the module in the system
giacomo@
giacomo@
/home/giacomo/
/home/giacomo/
/home/giacomo/
No library in library paths
Installing the module anche checking the position
giacomo@
Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
Installing /usr/local/
Installing /usr/local/
Writing /usr/local/
Appending installation info to /usr/local/
giacomo@
giacomo@
/home/giacomo/
/home/giacomo/
/home/giacomo/
/usr/local/
Cat the file and execute
giacomo@
use Tcl;
giacomo@
Segmentation fault
Backtrace of the gdb
(gdb) bt
#0 0xb7f5b528 in NpInitialize (my_perl=
#1 0xb7f5bcfc in boot_Tcl (my_perl=0x965f008, cv=0x96a9dd0) at Tcl.xs:1733
#2 0x080b3f02 in Perl_pp_entersub ()
#3 0x080b22e9 in Perl_runops_
#4 0x080afdb8 in Perl_call_sv ()
#5 0x080b019f in Perl_call_list ()
#6 0x08064daf in ?? ()
#7 0x08072f37 in Perl_newATTRSUB ()
#8 0x08071d60 in Perl_utilize ()
#9 0x08161ee8 in Perl_yyparse ()
#10 0x080ae2e6 in ?? ()
#11 0x080b0cc5 in perl_parse ()
#12 0x08063e81 in main ()
Same bug in multiple intrepid postations, but not on different distributions
Perl is working correctly with other modules
On Wed, Nov 12, 2008 at 7:36 PM, spk <email address hidden> wrote: linksys- admin:~ /Desktop/ Tcl-0.97$ make test :Command: :MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t linksys- admin:~ /Desktop/ Tcl-0.97$ sudo updatedb linksys- admin:~ /Desktop/ Tcl-0.97$ locate Tcl.pm Desktop/ Tcl-0.97/ Tcl.pm Desktop/ Tcl-0.97/ backup/ Tcl.pm Desktop/ Tcl-0.97/ blib/lib/ Tcl.pm linksys- admin:~ /Desktop/ Tcl-0.97$ sudo make install lib/perl/ 5.10.0/ Tcl.pm lib/perl/ 5.10.0/ prova.pm lib/perl/ 5.10.0/ auto/Tcl/ .packlist lib/perl/ 5.10.0/ perllocal. pod linksys- admin:~ /Desktop/ Tcl-0.97$ sudo updatedb linksys- admin:~ /Desktop/ Tcl-0.97$ locate Tcl.pm Desktop/ Tcl-0.97/ Tcl.pm Desktop/ Tcl-0.97/ backup/ Tcl.pm Desktop/ Tcl-0.97/ blib/lib/ Tcl.pm lib/perl/ 5.10.0/ Tcl.pm linksys- admin:~ /Desktop/ Tcl-0.97$ cat prova.pm linksys- admin:~ /Desktop/ Tcl-0.97$ perl prova.pm 0xbfda67d8, X=0x9663930) at Tcl.xs:445 standard () /bugs.launchpad .net/bugs/ 297437
> Public bug reported:
>
> I'm not sure if this is a perl bug or a tcl-dev bug
>
>
> Compiling Tcl module from source
> ...
> Testing Tcl module
>
> giacomo@
> PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils:
> t/call.........ok
> t/constants....ok
> t/createcmd....ok
> t/eval.........ok
> t/info.........ok
> t/result.......ok
> t/subclass.....ok
> t/trace........ok
> t/unicode......ok
> t/var..........ok
> All tests successful.
> Files=10, Tests=53, 1 wallclock secs ( 0.27 cusr + 0.08 csys = 0.35 CPU)
>
> Tests are successfull
>
>
> Locating any previous presence of the module in the system
>
> giacomo@
> giacomo@
> /home/giacomo/
> /home/giacomo/
> /home/giacomo/
>
> No library in library paths
>
> Installing the module anche checking the position
>
> giacomo@
> Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
> Installing /usr/local/
> Installing /usr/local/
> Writing /usr/local/
> Appending installation info to /usr/local/
> giacomo@
> giacomo@
> /home/giacomo/
> /home/giacomo/
> /home/giacomo/
> /usr/local/
>
>
> Cat the file and execute
>
> giacomo@
> use Tcl;
>
> giacomo@
> Segmentation fault
>
>
> Backtrace of the gdb
>
> (gdb) bt
> #0 0xb7f5b528 in NpInitialize (my_perl=
> #1 0xb7f5bcfc in boot_Tcl (my_perl=0x965f008, cv=0x96a9dd0) at Tcl.xs:1733
> #2 0x080b3f02 in Perl_pp_entersub ()
> #3 0x080b22e9 in Perl_runops_
> #4 0x080afdb8 in Perl_call_sv ()
> #5 0x080b019f in Perl_call_list ()
> #6 0x08064daf in ?? ()
> #7 0x08072f37 in Perl_newATTRSUB ()
> #8 0x08071d60 in Perl_utilize ()
> #9 0x08161ee8 in Perl_yyparse ()
> #10 0x080ae2e6 in ?? ()
> #11 0x080b0cc5 in perl_parse ()
> #12 0x08063e81 in main ()
>
>
> Same bug in multiple intrepid postations, but not on different distributions
> Perl is working correctly with other modules
>
> ** Affects: perl (Ubuntu)
> Importance: Undecided
> Status: New
>
> --
> Perl 5.10.0 crash with a segmentation fault when using module Tcl
> https:/
> You received this bug notification because you are subscribed to perl in
> ubuntu.
>
This is not a Perl or Tcl bug. This is a bug in the Tcl Perl module
available from CPAN. A debugging Perl causes the module to fail its
tests as follows.
t/call.........ok 1/10Assertion ((svtype) ((_svi) ->sv_flags & 0xff)) >=
SVt_RV fa...