@_ is treated differently when in debugger

[p5pRT]

Migrated from rt.perl.org#941 (status was 'resolved')

Searchable as RT941$

[p5pRT]

From @gbarr

The script below gives different output when run with -d eg

$ perl /tmp/tst
AAA 1 2 3 4
123 1 2 3 4
123 1 2 3 4

$ perl -d -e 1
  DB<1> do "/tmp/tst";
AAA 1 2 3 4
123 1 2 3 4
AAA 1 2 3 4

This only happens when perl is compiled with threading enabled.

--%<----%<-- /tmp/tst --%<----%<----%<--

package AAA;

sub import {
  print join(" ",@​_,"\n");
  shift;
  unshift @​_, '123';
  print join(" ",@​_,"\n");
  goto &{BBB->can('import')};
}

package BBB;

sub import {
  print join(" ",@​_,"\n");
}

package;

AAA->import(1,2,3,4);

Perl Info

Site configuration information for perl 5.00557:

Configured by gbarr at Wed Jun 30 17:00:46 CDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 57) configuration:
  Platform:
    osname=solaris, osvers=2.5.1, archname=sun4-solaris-thread
    uname='sunos punch 5.5.1 generic_103640-26 sun4u sparc sunw,ultra-2 '
    config_args='-ders -D cc=gcc -D prefix=/home/gbarr/local/perl5.005_57 -D sitelib=/home/gbarr/local/site_perl -D optimize=-O2 -g -Dusethreads'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='gcc', optimize='-O2 -g', gccversion=2.8.1
    cppflags='-D_REENTRANT -DDEBUGGING -I/usr/local/include'
    ccflags ='-D_REENTRANT -DDEBUGGING -I/usr/local/include'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -lgdbm -ldb -ldl -lm -lposix4 -lpthread -lc -lcrypt
    libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.00557:
    lib
    /home/gbarr/local/perl5.005_57/lib/5.00557/sun4-solaris-thread
    /home/gbarr/local/perl5.005_57/lib/5.00557
    /home/gbarr/local/site_perl/sun4-solaris-thread
    /home/gbarr/local/site_perl
    .


Environment for perl 5.00557:
    HOME=/home/gbarr
    LANG=C
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/home/dkse/net/local/lib:/home/gbarr/local/kde1.1/lib:/home/gbarr/local/qt-1.42/lib:/home/clyvb/lib:/usr/dt/lib:/usr/lib:/usr/local/X11R6/lib:/usr/lib/X11:/usr/openwin/lib:/home/clyvb/lib/xpm:/home/clyvb/lib/xpm:/apps/idea/lib:/apps/idea/shared/lib:/home/gbarr/local/lib
    LOGDIR (unset)
    PATH=/home/gbarr/local/kde1.1/bin:.:/home/gbarr/bin:/apps/gnu/bin:/home/gbarr/local/perl/bin:/home/gbarr/local/bin:/usr/bin:/usr/local/bin:/usr/xpg4/bin:/usr/openwin/bin:/usr/bin/X11:/apps/dad/bin:/bin:/usr/ucb
    PERL_BADLANG (unset)
    SHELL=/bin/bash