[Expectperl-discuss] problem syncing with spawned process under debugger.

[Jim C. <jc...@di...>]

on linux RH-72 w current 2.4.18

When trying to debug my cruft (elided),
I had a consistent problem hooking up to spawned process under the debugger.

Ive 'reduced' it to a test-case that doesnt involve any of my stuff :-)
The hang under debugger is the same.

fia - if this is well known debugger option twizzle..

[root@harpo .cpan/build/Expect-1.15]# perl -d test.pl

...
 on tests 16, 18not ok 16
# Test failed at test.pl line 86.
some string
ok 17
not ok 18
# Test failed at test.pl line 95.

Testing -notransfer...

X some other
ok 19
...
ok 24

Testing raw reversing...

isatty($exp): YES


I control C here, to break hang.


Expect::spawn(/usr/local/lib/perl5/site_perl/5.8.0/Expect.pm:125):
125:        die "Cannot sync with child: $!" if not defined $errstatus;
  DB<1> c
Cannot sync with child: Interrupted system call at 
/usr/local/lib/perl5/site_perl/5.8.0/Expect.pm line 125.
    Expect::spawn('Expect=GLOB(0x860c208)','/usr/local/bin/perl -ne 
\'chomp; sleep 0; print scalar revers...') called at test.pl line 162
Debugged program terminated.  Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info. 
  DB<1> q
[root@harpo Expect-1.15]#



a script capture is  also attached unedited, but -pi -e's/\r//' cleaned.

tia, jimc


[root@harpo Expect-1.15]# perl -V
Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.4.18-12.5, archname=i686-linux
    uname='linux harpo.jimc.earth 2.4.18-12.5 #1 mon aug 26 08:51:52 edt 
2002 i686 unknown '
    config_args='-des -Accflags=-DDEBUGGING'
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef 
usemultiplicity=undef
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-fno-strict-aliasing -I/usr/local/include 
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm 
-DDEBUGGING -DDEBUGGING',
    optimize='-O2',
    cppflags='-fno-strict-aliasing -I/usr/local/include 
-I/usr/include/gdbm -fno-strict-aliasing -I/usr/local/include 
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm 
-DDEBUGGING -fno-strict-aliasing -I/usr/local/include 
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm 
-DDEBUGGING -DDEBUGGING'
    ccversion='', gccversion='2.96 20000731 (Red Hat Linux 7.2 
2.96-108.7.2)', 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, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil
    perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
    libc=/lib/libc-2.2.4.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.2.4'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
  Compile-time options: DEBUGGING USE_LARGE_FILES
  Built under linux
  Compiled at Sep 20 2002 03:36:26
  @INC:
    /usr/local/lib/perl5/5.8.0/i686-linux
    /usr/local/lib/perl5/5.8.0
    /usr/local/lib/perl5/site_perl/5.8.0/i686-linux
    /usr/local/lib/perl5/site_perl/5.8.0
    /usr/local/lib/perl5/site_perl
    .