~ $ 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~ $