http://bugzilla.opensuse.org/show_bug.cgi?id=1120267 Bug ID: 1120267 Summary: perl debugger coredump related to libreadline.so.7 rl_prep_terminal() Classification: openSUSE Product: openSUSE Tumbleweed Version: Current Hardware: x86-64 OS: Other Status: NEW Severity: Normal Priority: P5 - None Component: Development Assignee: bnc-team-screening@forge.provo.novell.com Reporter: okellogg@users.sourceforge.net QA Contact: qa-bugs@suse.de Found By: --- Blocker: --- Created attachment 793323 --> http://bugzilla.opensuse.org/attachment.cgi?id=793323&action=edit Outputs from running `valgrind perl -d any_script.pl` This is on Tumbleweed x86_64 release 20181219 containing among other: libreadline7-7.0-3.1.x86_64 perl-base-5.28.1-1.1.x86_64 perl-TermReadLine-Gnu-1.20-8.19.x86_64 Steps to reproduce: * Take any perl script, for example echo "exit 0;" > any_script.pl * Run the perl debugger, perl -d any_script.pl * Following will be printed: Loading DB routines from perl5db.pl version 1.53 Editor support available. Enter h or 'h h' for help, or 'man perldebug' for more help. main::(any_script.pl:1): exit 0; *** buffer overflow detected ***: perl terminated Aborted (core dumped) GDB session:

gdb /usr/bin/perl GNU gdb (GDB; openSUSE Tumbleweed) 8.2 Copyright (C) 2018 Free Software Foundation, Inc. License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html> This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. Type "show copying" and "show warranty" for details. This GDB was configured as "x86_64-suse-linux". Type "show configuration" for configuration details. For bug reporting instructions, please see: <http://bugs.opensuse.org/>. Find the GDB manual and other documentation resources online at: <http://www.gnu.org/software/gdb/documentation/>.

For help, type "help". Type "apropos word" to search for commands related to "word"... Reading symbols from /usr/bin/perl...Reading symbols from /usr/lib/debug/usr/bin/perl-5.28.1-1.1.x86_64.debug...done. done. (gdb) run -d any_script.pl Starting program: /usr/bin/perl -d any_script.pl [Thread debugging using libthread_db enabled] Using host libthread_db library "/lib64/libthread_db.so.1". Loading DB routines from perl5db.pl version 1.53 Editor support available. Enter h or 'h h' for help, or 'man perldebug' for more help. main::(any_script.pl:2): exit 0; *** buffer overflow detected ***: /usr/bin/perl terminated Program received signal SIGABRT, Aborted. __GI_raise (sig=sig@entry=6) at ../sysdeps/unix/sysv/linux/raise.c:50 50 return ret; (gdb) backtrace #0 __GI_raise (sig=sig@entry=6) at ../sysdeps/unix/sysv/linux/raise.c:50 #1 0x00007ffff70474e9 in __GI_abort () at abort.c:79 #2 0x00007ffff70a09a7 in __libc_message (action=<optimized out>, fmt=fmt@entry=0x7ffff71aa2b0 "*** %s ***: %s terminated\n") at ../sysdeps/posix/libc_fatal.c:181 #3 0x00007ffff713213d in __GI___fortify_fail_abort (need_backtrace=need_backtrace@entry=true, msg=msg@entry=0x7ffff71aa22d "buffer overflow detected") at fortify_fail.c:28 #4 0x00007ffff7132173 in __GI___fortify_fail (msg=msg@entry=0x7ffff71aa22d "buffer overflow detected") at fortify_fail.c:44 #5 0x00007ffff7130252 in __GI___chk_fail () at chk_fail.c:28 #6 0x00007ffff7132067 in __fdelt_chk (d=<optimized out>) at fdelt_chk.c:25 #7 0x00007ffff7005a47 in rl_getc (stream=0x555555ede070) at ../input.c:520 #8 0x00007ffff700635b in rl_read_key () at ../input.c:483 #9 0x00007ffff6fee69a in readline_internal_char () at ../readline.c:573 #10 0x00007ffff6feeeb5 in readline_internal_charloop () at ../readline.c:663 #11 readline_internal () at ../readline.c:677 #12 readline (prompt=<optimized out>) at ../readline.c:376 #13 0x00007ffff7fce9af in XS_Term__ReadLine__Gnu__XS_rl_readline (my_perl=<optimized out>, cv=<optimized out>) at Gnu.xs:1317 #14 0x0000555555643521 in Perl_pp_entersub (my_perl=0x555555869260) at pp_hot.c:5232 #15 0x0000555555639836 in Perl_runops_standard (my_perl=0x555555869260) at run.c:42 #16 0x00005555555b5b87 in S_run_body (oldscope=<optimized out>, my_perl=<optimized out>) at perl.c:2694 #17 perl_run (my_perl=0x555555869260) at perl.c:2617 #18 0x000055555558c402 in main (argc=<optimized out>, argv=<optimized out>, env=<optimized out>) at perlmain.c:122 -- You are receiving this mail because: You are on the CC list for the bug.