Help for this page

Select Code to Download


  1. or download this
    848: ptr = (void*)&PL_curpad[SSPOPLONG];
849: sv = *(SV**)ptr;
...
899:      * for any closure capturing */
900:     SvFLAGS(*(SV**)ptr) |= padflags | SVs_PADSTALE;
901: }
  2. or download this
    >perl -MDevel::Peek -le"sub f{ my $rv = \my $x; Dump($x); $rv } print 
+f() for 1..5"
SV = NULL(0x0) at 0x235fcc
...
  REFCNT = 2
  FLAGS = (PADBUSY,PADMY)
SCALAR(0x235fcc)