| CC: | bug-Devel-DProf [...] rt.cpan.org, perl5-porters [...] perl.org |
| Subject: | [perl #8535] DProf interferes with @_ manipulation |
| Date: | Sun, 04 Dec 2011 10:55:16 -0800 |
| To: | "OtherRecipients of perl Ticket #8535":; |
| From: | "Father Chrysostomos via RT" <perlbug-followup [...] perl.org> |
Forwarding to the CPAN queue....
On Thu Feb 14 10:01:13 2002, tim@srl.caltech.edu wrote:
Show quoted text
> 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
Show quoted text> 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