ports/129626: Port p5-Tcl segfaults on i386 and amd64 on FreeBSD 7

[Bruce Albrecht]

>Number:         129626
>Category:       ports
>Synopsis:       Port p5-Tcl segfaults on i386 and amd64 on FreeBSD 7
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Sun Dec 14 05:50:04 UTC 2008
>Closed-Date:
>Last-Modified:
>Originator:     Bruce Albrecht <bruce at freebsd.zuhause.org>
>Release:        FreeBSD 7.1-PRERELEASE i386
>Organization:
>Environment:
System: FreeBSD nx7400b.zuhause.org 7.1-PRERELEASE FreeBSD 7.1-PRERELEASE #0: Wed Nov 26 22:29:53 CST 2008 toor at nx7400b.zuhause.org:/usr/obj/usr/src/sys/NX7400 i386


	
>Description:
Port p5-Tcl segfaults on i386 and amd64 on FreeBSD 7 unless environment variable PERL_DL_NONLAZY is set.
>How-To-Repeat:
bruce at nx7400b Tkx-1.05 $ cat /tmp/a.pl
#!/usr/bin/perl

use Tcl;

print "whatever\n";
bruce at nx7400b Tkx-1.05 $ PERL_DL_NONLAZY=1 perl /tmp/a.pl
whatever
bruce at nx7400b Tkx-1.05 $ perl /tmp/a.pl
Segmentation fault: 11
bruce at nx7400b Tkx-1.05 $ gdb perl
GNU gdb 6.1.1 [FreeBSD]
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i386-marcel-freebsd"...(no debugging symbols found)...
(gdb) run /tmp/a.pl
Starting program: /usr/bin/perl /tmp/a.pl
(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...
Program received signal SIGSEGV, Segmentation fault.
0x282d4cc1 in boot_Tcl () from /usr/local/lib/perl5/site_perl/5.8.8/mach/auto/Tcl/Tcl.so
(gdb) where
#0  0x282d4cc1 in boot_Tcl () from /usr/local/lib/perl5/site_perl/5.8.8/mach/auto/Tcl/Tcl.so
#1  0x280f9ee1 in Perl_pp_entersub () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#2  0x280f8685 in Perl_runops_standard () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#3  0x2809f0b0 in S_call_body () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#4  0x2809fd4d in Perl_call_sv () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#5  0x280a00b1 in Perl_call_list () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#6  0x280d2f04 in Perl_newATTRSUB () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#7  0x280d1c66 in Perl_utilize () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#8  0x280c6b2d in Perl_yyparse () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#9  0x280a215f in S_parse_body () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#10 0x280a2e18 in perl_parse () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#11 0x08049037 in main ()
(gdb)

On amd-64 machine running FreeBSD 7.0p3:
[bruce at orca 33] x > gdb /usr/local/bin/perl
GNU gdb 6.1.1 [FreeBSD]
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "amd64-marcel-freebsd"...(no debugging symbols found)...
(gdb) run /tmp/a.pl
Starting program: /usr/local/bin/perl /tmp/a.pl
(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...(no debugging symbols found)...
Program received signal SIGSEGV, Segmentation fault.
0x0000000800f036ed in boot_Tcl () from /usr/local/lib/perl5/site_perl/5.8.8/mach/auto/Tcl/Tcl.so
(gdb) where
#0  0x0000000800f036ed in boot_Tcl ()
   from /usr/local/lib/perl5/site_perl/5.8.8/mach/auto/Tcl/Tcl.so
#1  0x00000008006ba5f6 in Perl_pp_entersub () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#2  0x00000008006b8eae in Perl_runops_standard ()
   from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#3  0x0000000800666fc5 in Perl_call_sv () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#4  0x000000080066738c in Perl_call_list () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#5  0x0000000800696703 in Perl_newATTRSUB () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#6  0x00000008006954f3 in Perl_utilize () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#7  0x000000080068b191 in Perl_yyparse () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#8  0x0000000800669101 in S_parse_body () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#9  0x0000000800669d4e in perl_parse () from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#10 0x0000000000401600 in main ()

>Fix:

	


>Release-Note:
>Audit-Trail:
>Unformatted: