amd64/131993: Bus error on nagios 3.0.x with perl 5.8.9

[Sebastián Guarino]

>Number:         131993
>Category:       amd64
>Synopsis:       Bus error on nagios 3.0.x with perl 5.8.9
>Confidential:   no
>Severity:       non-critical
>Priority:       high
>Responsible:    freebsd-amd64
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Feb 23 02:30:01 UTC 2009
>Closed-Date:
>Last-Modified:
>Originator:     Sebastián Guarino
>Release:        6.4-RELEASE-p3
>Organization:
Mafrasi
>Environment:
FreeBSD colmillo.micans.com 6.4-RELEASE-p3 FreeBSD 6.4-RELEASE-p3 #12: Fri Feb 20 09:55:25 ARST 2009     root at colmillo.micans.com:/usr/obj/usr/src/sys/MICANS  amd64

>Description:
starting nagios gives a bus error=10 signal when starting from rc script or binary.

I recompile perl and nagios with debug symbols, and here is the backtrace.

0 root at colmillo:/usr/ports/net-mgmt/nagios/work/nagios-3.0.6/base$ gdb ./nagios
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"...
(gdb) set arg /usr/local/etc/nagios/nagios.cfg
(gdb) r
Starting program: /usr/ports/net-mgmt/nagios/work/nagios-3.0.6/base/nagios /usr/local/etc/nagios/nagios.cfg
[New LWP 100205]
[New Thread 0x5b3000 (LWP 100205)]

Nagios 3.0.6
Copyright (c) 1999-2008 Ethan Galstad (http://www.nagios.org)
Last Modified: 12-01-2008
License: GPL

Nagios 3.0.6 starting... (PID=71865)
Local time is Mon Feb 23 00:18:58 ARST 2009

Program received signal SIGBUS, Bus error.
[Switching to Thread 0x5b3000 (LWP 100205)]
0x000000080078b645 in Perl_doing_taint (argc=2, argv=0x49d968, envp=0x0) at perl.c:4530
4530        if ( argc > 1 && argv[1][0] == '-'
(gdb) bt
#0  0x000000080078b645 in Perl_doing_taint (argc=2, argv=0x49d968, envp=0x0) at perl.c:4530
#1  0x00000008007838cb in Perl_sys_init3 (argc=0x7fffffffeacc, argv=0x7fffffffeae0, env=0x7fffffffeaf8)
    at perl.c:191
#2  0x00000000004468ca in init_embedded_perl (env=0x7fffffffecd8) at utils.c:3620
#3  0x0000000000413bbf in main (argc=2, argv=0x7fffffffecc0, env=0x7fffffffecd8) at nagios.c:710
(gdb)                                     
>How-To-Repeat:
Compile with current ports (perl 5.8.9 and nagis 3.0.6)
/usr/local/etc/rc.d/nagios start

>Fix:


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