develooper Front page | perl.perl5.porters | Postings from November 2000

[ID 20001127.002] const subs hurt under debugger

Thread Next
From:
Andreas J. Koenig
Date:
November 27, 2000 03:24
Subject:
[ID 20001127.002] const subs hurt under debugger
Message ID:
200011271124.MAA04501@ak-71.mind.de
This is a bug report for perl from k@ak-71.mind.de,
generated with the help of perlbug 1.26 running under perl 5.007.


-----------------------------------------------------------------
[Please enter your report here]
Since patch 7389 we have a problem with Socket::INET in the debugger.
I discovered it in conjunction with Net::FTP, so here goes my testcase:

# /usr/local/perl-5.7.0@7389/bin/perl -de 'use Net::FTP;$_ = Net::FTP->new("localhost");'
Default die handler restored.

Loading DB routines from perl5db.pl version 1.07
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(-e:1):   use Net::FTP;$_ = Net::FTP->new("localhost");
  DB<1> c
Signal SEGV at /usr/local/perl-5.7.0@7389/lib/5.7.0/IO/Socket/INET.pm line 32
        IO::Socket::INET::new('Net::FTP', 'PeerAddr', 'localhost', 'PeerPort', 'ftp(21)', 'Proto', 'tcp', 'Timeout', ...) called at /usr/local/perl-5.7.0@7389/lib/site_perl/5.7.0/Net/FTP.pm line 66
        Net::FTP::new('Net::FTP', 'localhost') called at -e line 1

gdb reports

(gdb) bt
#0  0x4006fce1 in __kill () from /lib/libc.so.6
#1  0x8114601 in Perl_apply (type=286, mark=0x82e26c0, sp=0x82e26c0)
    at doio.c:1612
#2  0x810a2f9 in Perl_pp_kill () at pp_sys.c:3977
#3  0x80b78cc in Perl_runops_debug () at run.c:56
#4  0x80f7484 in S_docatch_body () at pp_ctl.c:2610
#5  0x80f755b in S_docatch (o=0x84584c8) at pp_ctl.c:2637
#6  0x80fa6f2 in Perl_pp_require () at pp_ctl.c:3290
#7  0x80b78cc in Perl_runops_debug () at run.c:56
#8  0x805e8af in S_call_body (myop=0xbffff75c, is_eval=0) at perl.c:1809
#9  0x805e1a0 in perl_call_sv (sv=0x8215e54, flags=2) at perl.c:1686
#10 0x80b1232 in Perl_sighandler (sig=11) at mg.c:2220
#11 0x4006fc08 in __restore ()
    at ../sysdeps/unix/sysv/linux/i386/sigaction.c:127
#12 0x80c0565 in Perl_pp_entersub () at pp_hot.c:2425
#13 0x80b78cc in Perl_runops_debug () at run.c:56
#14 0x805dc0e in S_run_body (oldscope=1) at perl.c:1447
#15 0x805d82d in perl_run (my_perl=0x8146a60) at perl.c:1372
#16 0x805a72b in main (argc=3, argv=0xbffffa64, env=0xbffffa74)
    at perlmain.c:52




[Please do not change anything below this line]
-----------------------------------------------------------------

---
This perlbug was built using Perl 5.00503 - Wed Feb  2 15:34:50 EST 2000
It is being executed now by  Perl 5.007 - Sun Oct 29 23:35:33 CET 2000.

Site configuration information for perl 5.007:

Configured by k at Sun Oct 29 23:35:33 CET 2000.

Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.2.16a, archname=i686-linux
    uname='linux ak-71.mind.de 2.2.16a #1 smp wed jun 14 11:59:53 cest 2000 i686 unknown '
    config_args='-Dprefix=/usr/local/perl-5.7.0@7489 -Doptimize=-g -des -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-g',
    cppflags='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt -lutil
    perllibs=-lnsl -ldl -lm -lc -lposix -lcrypt -lutil
    libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:
    

---
@INC for perl 5.007:
    /usr/local/perl-5.7.0@7489/lib/5.7.0/i686-linux
    /usr/local/perl-5.7.0@7489/lib/5.7.0
    /usr/local/perl-5.7.0@7489/lib/site_perl/5.7.0/i686-linux
    /usr/local/perl-5.7.0@7489/lib/site_perl/5.7.0
    /usr/local/perl-5.7.0@7489/lib/site_perl
    .

---
Environment for perl 5.007:
    HOME=/home/k
    LANG=en_US
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/k/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/usr/local/perl/bin:/usr/X11/bin:/sbin:/usr/sbin:/usr/local/Office51/bin
    PERL_BADLANG (unset)
    SHELL=/bin/zsh


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About