develooper Front page | perl.perl5.porters | Postings from October 2018

Re: [perl #133558] perl 5.26: use lib pragma issue in IBM AIX

Thread Previous | Thread Next
From:
Dave Mitchell
Date:
October 9, 2018 12:06
Subject:
Re: [perl #133558] perl 5.26: use lib pragma issue in IBM AIX
Message ID:
20181009120600.GM3102@iabyn.com
On Tue, Oct 09, 2018 at 05:27:29PM +0530, Gururaj Kallur wrote:
> Compiled perl with -DDEBUGGING and optimisation disabled and debugging
> symbols enabled

Ok thanks. Run this and show me the output:

$ perl -Dst -le '@a = qw(/foo/bar); for (reverse @a) { print }'

EXECUTING...

    =>  
(-e:0)	enter
    =>  
(-e:0)	nextstate
    =>  
(-e:1)	pushmark
    =>  *  
(-e:1)	const(PV("/foo/bar"\0))
    =>  *  PV("/foo/bar"\0)  
(-e:1)	pushmark
    =>  *  PV("/foo/bar"\0)  *  
(-e:1)	gv(main::a)
    =>  *  PV("/foo/bar"\0)  *  GV()  
(-e:1)	rv2av
    =>  *  PV("/foo/bar"\0)  *  AV()  
(-e:1)	aassign
    =>  
(-e:1)	nextstate
    =>  
(-e:1)	pushmark
    =>  *  
(-e:1)	gv(main::a)
    =>  *  GV()  
(-e:1)	rv2av
    =>  *  AV()  
(-e:1)	gv(main::_)
    =>  *  AV()  GV()  
(-e:1)	enteriter
    =>  
(-e:1)	iter
    =>  
(-e:1)	nextstate
    =>  
(-e:1)	pushmark
    =>  *  
(-e:1)	gvsv(main::_)
    =>  *  PV("/foo/bar"\0)  
(-e:1)	print
/foo/bar
    =>  SV_YES  
(-e:1)	unstack
    =>  
(-e:1)	iter
    =>  SV_NO  
(-e:1)	leaveloop
    =>  
(-e:1)	leave


-- 
I took leave and went to hear Mrs Turner's daughter play on the harpsicon,
but Lord, it was enough to make any man sick to hear her; yet I was forced
to commend her highly.
    -- The Diary of Samuel Pepys, 1 May 1663

Thread Previous | 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