Comment 1 for bug 297437

On Wed, Nov 12, 2008 at 7:36 PM, spk <email address hidden> wrote:
> 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@linksys-admin:~/Desktop/Tcl-0.97$ make test
> PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
> 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@linksys-admin:~/Desktop/Tcl-0.97$ sudo updatedb
> giacomo@linksys-admin:~/Desktop/Tcl-0.97$ locate Tcl.pm
> /home/giacomo/Desktop/Tcl-0.97/Tcl.pm
> /home/giacomo/Desktop/Tcl-0.97/backup/Tcl.pm
> /home/giacomo/Desktop/Tcl-0.97/blib/lib/Tcl.pm
>
> No library in library paths
>
> Installing the module anche checking the position
>
> giacomo@linksys-admin:~/Desktop/Tcl-0.97$ sudo make install
> Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
> Installing /usr/local/lib/perl/5.10.0/Tcl.pm
> Installing /usr/local/lib/perl/5.10.0/prova.pm
> Writing /usr/local/lib/perl/5.10.0/auto/Tcl/.packlist
> Appending installation info to /usr/local/lib/perl/5.10.0/perllocal.pod
> giacomo@linksys-admin:~/Desktop/Tcl-0.97$ sudo updatedb
> giacomo@linksys-admin:~/Desktop/Tcl-0.97$ locate Tcl.pm
> /home/giacomo/Desktop/Tcl-0.97/Tcl.pm
> /home/giacomo/Desktop/Tcl-0.97/backup/Tcl.pm
> /home/giacomo/Desktop/Tcl-0.97/blib/lib/Tcl.pm
> /usr/local/lib/perl/5.10.0/Tcl.pm
>
>
> Cat the file and execute
>
> giacomo@linksys-admin:~/Desktop/Tcl-0.97$ cat prova.pm
> use Tcl;
>
> giacomo@linksys-admin:~/Desktop/Tcl-0.97$ perl prova.pm
> Segmentation fault
>
>
> Backtrace of the gdb
>
> (gdb) bt
> #0 0xb7f5b528 in NpInitialize (my_perl=0xbfda67d8, X=0x9663930) at Tcl.xs:445
> #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_standard ()
> #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://bugs.launchpad.net/bugs/297437
> 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 failed: file "Tcl.xs", line 653 at t/call.t line 38.

Please contact the module author from the contact information on
http://search.cpan.org/dist/Tcl for filing a bug report.

Steve Peters
<email address hidden>