Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^12: B::Xref buggy?

by LanX (Sage)
on Nov 15, 2018 at 21:27 UTC ( #1225877=note: print w/replies, xml ) Need Help??


in reply to Re^11: B::Xref buggy?
in thread B::Xref buggy?

well the information is still available, var3 belongs to the tree below the first nextstate

$ perl -MO=Concise,-src tst_b_xref4.pl|perl -pe 'substr $_, -1, 0, " " +x(68-length$_) . " #:$1" if /(^#|nextstate|var\d+)/;' tst_b_xref4.pl syntax OK j <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 # 1: for ( # +:# 2 <;> nextstate(main 3 tst_b_xref4.pl:1) v:{ ->3 # +:nextstate 4 <1> preinc[t2] vK/1 ->5 - <1> ex-rv2sv sKRM/1 ->4 3 <#> gvsv[*var1] s ->4 # +:var1 5 <0> unstack v* ->6 i <2> leaveloop vK/2 ->j 6 <{> enterloop(next->c last->i redo->7) v ->f - <1> null vK/1 ->i h <|> and(other->7) vK/1 ->i g <1> postinc[t4] sK/1 ->h - <1> ex-rv2sv sKRM/1 ->g f <#> gvsv[*var2] s ->g # +:var2 - <@> lineseq vK ->- b <@> leave vKP ->c 7 <0> enter v ->8 # 6: $var4++; # +:# 8 <;> nextstate(main 1 tst_b_xref4.pl:6) v:{ ->9 # +:nextstate a <1> preinc[t8] vK/1 ->b - <1> ex-rv2sv sKRM/1 ->a 9 <#> gvsv[*var4] s ->a # +:var4 d <1> preinc[t6] vK/1 ->e - <1> ex-rv2sv sKRM/1 ->d c <#> gvsv[*var3] s ->d # +:var3 e <0> unstack v ->f

thanks Dave, I learned a lot! :)

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1225877]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (2)
As of 2022-01-28 06:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (73 votes). Check out past polls.

    Notices?