http://qs321.pair.com?node_id=534611


in reply to Re: Deparse isn't as reliable as I thought
in thread Deparse isn't as reliable as I thought

Well, Concise doesn't even distingush between 

perl -MO=Concise -we 'warn "foo"=~/f./g'

[download]
and 
perl -MO=Concise -we 'warn "foo"=~/f./'

[download]
so I wouldn't trust it so much.

Replies are listed 'Best First'.
Re^3: Deparse isn't as reliable as I thought
by BrowserUk (Patriarch) on Mar 05, 2006 at 23:52 UTC

    See what happens when you put that into a list context: 

    C:\>perl -MO=Concise -e"'foofoo' =~ /f../"
5  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
4     </> match(/"f.."/) vKS/RTIME ->5
3        <$> const[PV "foofoo"] s ->4
-e syntax OK

C:\>perl -MO=Concise -e"'foofoo' =~ /f../g"
5  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
4     </> match(/"f.."/) vKS/RTIME ->5
3        <$> const[PV "foofoo"] s ->4
-e syntax OK

C:\>perl -MO=Concise -e"() = 'foofoo' =~ /f../g"
8  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v ->3
7     <2> aassign[t1] vKS/COMMON ->8
-        <1> ex-list lK ->6
3           <0> pushmark s ->4
5           </> match(/"f.."/) lKS/RTIME ->6
4              <$> const[PV "foofoo"] s ->5
-        <1> ex-list lK ->7
6           <0> pushmark s ->7
-           <0> stub lPRM* ->-
-e syntax OK

    [download]
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]

In Section Meditations