~ $ perl -w  -e'sub g{1}; my $cr=\&g; eval q(sub g{2}); print g(); print $cr->();'
Subroutine g redefined at (eval 1) line 1.
21~ $


##</code><code>##

~ $ perl -MO=Concise,-exec -w  -e'sub g{1}; my $cr=\&g; eval q(sub g{2}); print g(); print $cr->();'
1  <0> enter v
2  <;> nextstate(main 3 -e:1) v:{
3  <#> gv[IV \&main::g] s
4  <1> rv2cv[t3] lKRM/AMPER,TARG
5  <1> srefgen sK/1
6  <0> padsv[$cr:3,4] sRM*/LVINTRO
7  <2> sassign vKS/2
8  <;> nextstate(main 4 -e:1) v:{
9  <$> const[PV "sub g{2}"] s
a  <1> entereval[t256] vK/1
b  <;> nextstate(main 4 -e:1) v:{
c  <0> pushmark s
d  <0> pushmark s
e  <#> gv[IV \&main::g] s
f  <1> entersub lKS
g  <@> print vK
h  <;> nextstate(main 4 -e:1) v:{
i  <0> pushmark s
j  <0> pushmark s
k  <0> padsv[$cr:3,4] s
l  <1> entersub[t4] lKS/TARG
m  <@> print vK
n  <@> leave[1 ref] vKP/REFC
-e syntax OK    

##</code><code>##

~ $ perl -w  -e'sub g{1}; my $cr=\&g; eval q(sub g{2}); print g(); print $cr->();use Devel::Peek; Dump($cr);Dump(\&g);'
Subroutine g redefined at (eval 2) line 1.
SV = IV(0xb40000715c6827e8) at 0xb40000715c6827f8
  REFCNT = 1
  FLAGS = (ROK)
  RV = 0xb40000715c682810
  SV = PVCV(0xb40000715c6812d8) at 0xb40000715c682810
    REFCNT = 1
    FLAGS = (DYNFILE)
    COMP_STASH = 0xb40000715c60c6c0     "main"
    START = 0xb40000715c699698 ===> 1
    ROOT = 0xb40000715c699620
    GVGV::GV = 0xb40000715c682858       "main" :: "g"
    FILE = "-e"
    DEPTH = 0
    FLAGS = 0x1000
    OUTSIDE_SEQ = 1
    PADLIST = 0xb40000715c63b480
    PADNAME = 0xb40000715c693bd0(0xb40000715c605510) PAD = 0xb40000715c682828(0xb40000715c63b4a0)
    OUTSIDE = 0xb40000715c60c9d8 (MAIN)
SV = IV(0xb40000715c682038) at 0xb40000715c682048
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0xb40000715c682078
  SV = PVCV(0xb40000715c6e2548) at 0xb40000715c682078
    REFCNT = 2
    FLAGS = (DYNFILE)
    COMP_STASH = 0xb40000715c60c6c0     "main"
    START = 0xb40000715c699b98 ===> 2
    ROOT = 0xb40000715c699b20
    GVGV::GV = 0xb40000715c682858       "main" :: "g"
    FILE = "(eval 2)"
    DEPTH = 0
    FLAGS = 0x1000
    OUTSIDE_SEQ = 213
    PADLIST = 0xb40000715c63b4e0
    PADNAME = 0xb40000715c693c90(0xb40000715c605670) PAD = 0xb40000715c682120(0xb40000715c720260)
    OUTSIDE = 0xb40000715c60c6a8 (UNIQUE)
21~ $


##</code><code>##

~ $ perl -w  -e'sub g{1}; my $cr=\&g; delete $::{g}; eval q(sub g{2}); print g(); print $cr->();'         
11~ $