pkg/59598: perl dumps core periodically in /var/log

[htodd%twofifty.com@localhost]

>Number:         59598
>Category:       pkg
>Synopsis:       perl dumps core periodically in /var/log
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Fri Aug 15 14:55:01 +0000 2025
>Originator:     Hisashi T Fujinaka
>Release:        
>Organization:
none
>Environment:
NetBSD mail.i8u.org 11.0_BETA NetBSD 11.0_BETA (MARA) #3483: Fri Aug  8 21:30:19 PDT 2025  htodd%mail.i8u.org@localhost:/usr/obj/amd64/sys/arch/amd64/compile/MARA amd64
>Description:
I periodically find perl.core in /var/log. It has happened for "a while" on NetBSD-10 and now on NetBSD-11_BETA. Looks like the beta has debugging info available because I was able to get  backtrace from gdb but I'm unclear on where it's coming from (probably from some log rotation). The core file was recently generated and appears to have happened at the top of the hour.

-rw-------  1 root  wheel  171035208 Aug 14 18:00 /var/log/perl.core

The backtrace:

Core was generated by `perl'.
Program terminated with signal SIGSEGV, Segmentation fault.
#0  _nsdispatch (retval=retval@entry=0x7f7fff081630, disp_tab=disp_tab@entry=0x74be103cff60 <dtab>, 
    database=database@entry=0x74be103786b9 "hosts", method=method@entry=0x74be1037868c "getaddrinfo", 
    defaults=defaults@entry=0x74be103d0040 <default_dns_files>) at /home/netbsd-cvs/netbsd-11/src/lib/libc/net/nsdispatch.c:631
631                             if (ldrec->thr == drec.thr)
(gdb) bt
#0  _nsdispatch (retval=retval@entry=0x7f7fff081630, disp_tab=disp_tab@entry=0x74be103cff60 <dtab>, 
    database=database@entry=0x74be103786b9 "hosts", method=method@entry=0x74be1037868c "getaddrinfo", 
    defaults=defaults@entry=0x74be103d0040 <default_dns_files>) at /home/netbsd-cvs/netbsd-11/src/lib/libc/net/nsdispatch.c:631
#1  0x000074be10306f6f in explore_fqdn (svd=<optimized out>, res=<optimized out>, servname=<optimized out>, 
    hostname=<optimized out>, pai=<optimized out>) at /home/netbsd-cvs/netbsd-11/src/lib/libc/net/getaddrinfo.c:1181
#2  _getaddrinfo (hostname=<optimized out>, servname=0x74be043b2530 "993", hints=0x7f7fff081900, res=0x7f7fff0818f8)
    at /home/netbsd-cvs/netbsd-11/src/lib/libc/net/getaddrinfo.c:646
#3  0x000074be0ef2cb94 in xs_getaddrinfo () from /usr/pkg/lib/perl5/5.40.0/x86_64-netbsd-thread-multi/auto/Socket/Socket.so
#4  0x000074be1076933b in Perl_pp_entersub () from /usr/pkg/lib/perl5/5.40.0/x86_64-netbsd-thread-multi/CORE/libperl.so
#5  0x000074be107eda8f in Perl_runops_standard () from /usr/pkg/lib/perl5/5.40.0/x86_64-netbsd-thread-multi/CORE/libperl.so
#6  0x000074be106d5caa in perl_run () from /usr/pkg/lib/perl5/5.40.0/x86_64-netbsd-thread-multi/CORE/libperl.so
#7  0x000000000063a6e4 in main ()
>How-To-Repeat:
Just wait.
>Fix:
No idea.