Select Code to Download

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

~ $ 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:{
...
m  <@> print vK
n  <@> leave[1 ref] vKP/REFC
-e syntax OK

~ $ perl -w  -e'sub g{1}; my $cr=\&g; eval q(sub g{2}); print g(); pri
+nt $cr->();use Devel::Peek; Dump($cr);Dump(\&g);'
Subroutine g redefined at (eval 2) line 1.
...
    PADNAME = 0xb40000715c693c90(0xb40000715c605670) PAD = 0xb40000715
+c682120(0xb40000715c720260)
    OUTSIDE = 0xb40000715c60c6a8 (UNIQUE)
21~ $

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