Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
perl -MO=Concise -e 'print $fh "blah"'
8 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v:{ ->3
7 <@> print vKS ->8
3 <0> pushmark s ->4
5 <1> rv2gv sKR/1 ->6
- <1> ex-rv2sv sK/1 ->5
4 <$> gvsv(*fh) s ->5
6 <$> const(PV "blah") s ->7
-e syntax OK
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.