[perl #8535] DProf interferes with @_ manipulation

Forwarding to the CPAN queue....

On Thu Feb 14 10:01:13 2002, tim@srl.caltech.edu wrote:
> This is a bug report for perl from tim@ipac.caltech.edu,
> generated with the help of perlbug 1.28 running under perl v5.6.0.
> 
> 
> -----------------------------------------------------------------
> [Please enter your report here]
> 
> Subroutines meant to massage a callers @_ are prevented from doing so
> when instrumented with DProf. Thus:
> 
> % perl -le 'sub foo { shift; } sub bar { &foo; print "@_" } bar(1,2);'
> 2
> % perl -d:DProf -le 'sub foo { shift; } sub bar { &foo; print "@_" }
> bar(1,2);'
> 1 2
> 
> Runs normally under the debugger:
> 
> % perl -dle 'sub foo { shift; } sub bar { &foo; print "@_" }
> bar(1,2);'
> [blah blah blah]
>   DB<1> r
> 2
> 
> (Suggestions for a workaround would be welcome since I'd dearly love
> to profile a program that does lots of this sort of thing.)
> 
> [Please do not change anything below this line]
> -----------------------------------------------------------------
> ---
> Flags:
>     category=library
>     severity=low
> ---
> Site configuration information for perl v5.6.0:
> 
> Configured by tim at Tue Nov 14 20:32:05 PST 2000.
> 
> Summary of my perl5 (revision 5.0 version 6 subversion 0)
> configuration:
>   Platform:
>     osname=linux, osvers=2.2.16-22, archname=i686-linux
>     uname='linux spindrift 2.2.16-22enterprise #1 smp tue aug 22
> 16:29:32 edt 2000 i686 unknown '
>     config_args=''
>     hint=previous, useposix=true, d_sigaction=define
>     usethreads=undef use5005threads=undef useithreads=undef
> usemultiplicity=undef
>     useperlio=undef d_sfio=undef uselargefiles=define
>     use64bitint=undef use64bitall=undef uselongdouble=undef
> usesocks=undef
>   Compiler:
>     cc='gcc', optimize='-O2 -g', gccversion=2.96 20000731 (Red Hat
> Linux 7.0)
>     cppflags='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include
> -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
>     ccflags ='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include
> -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
>     stdchar='char', d_stdstdio=define, usevfork=false
>     intsize=4, longsize=4, ptrsize=4, doublesize=8
>     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='gcc', ldflags ='-L/usr/local/lib -L/usr/lib -L/lib'
>     libpth=/usr/local/lib /lib /usr/lib
>     libs=-lnsl -lgdbm -ldl -lm -lc -lcrypt
>     libc=/lib/libc-2.1.92.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 -L/usr/lib
> -L/lib'
> 
> Locally applied patches:
> 
> 
> ---
> @INC for perl v5.6.0:
>     /home/galex/lib/perl/5.6.0/i686-linux
>     /home/galex/lib/perl/5.6.0
>     /home/galex/lib/perl/i686-linux
>     /home/galex/lib/perl
>     /usr/local/lib/perl5/5.6.0/i686-linux
>     /usr/local/lib/perl5/5.6.0
>     /usr/local/lib/perl5/site_perl/5.6.0/i686-linux
>     /usr/local/lib/perl5/site_perl/5.6.0
>     /usr/local/lib/perl5/site_perl
>     /home/galex/lib/perl/i686-linux
>     /home/galex/lib/perl
>     /home/galex/lib/perl
>     .
> 
> ---
> Environment for perl v5.6.0:
>     HOME=/users/tim
>     LANG=en_US
>     LANGUAGE (unset)
>     LD_LIBRARY_PATH=/home/galex/lib:/usr/local/lib
>     LOGDIR (unset)
>    
PATH=/usr/local/bin:/usr/sbin:/sbin:/bin:/usr/bin:/users/tim/bin:/home/galex/bin:/usr/X11R6/bin
>     PERL5LIB=/home/galex/lib/perl
>     PERLDOC_PAGER=less -+C
>     PERL_BADLANG (unset)
>     PERL_INLINE_BLIB=/home/galex/lib/perl/blib_I
>     SHELL=/bin/tcsh
> 


-- 

Father Chrysostomos

• [ID 20020214.004] DProf interferes with @_ manipulation by Tim Conrow
• [perl #8535] DProf interferes with @_ manipulation by Father Chrysostomos via RT
• [perl #8535] DProf interferes with @_ manipulation by Alexandr Ciornii via RT