$ perl -e " use Data::Lock qw/ dlock /; use Devel::Peek; my @f;
+ Dump\@f; dlock \@f; Dump\@f; $f[1]=1; "
SV = IV(0x3f9ad8) at 0x3f9adc
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x99bb0c
SV = PVAV(0x3fa970) at 0x99bb0c
REFCNT = 2
FLAGS = (PADMY)
ARRAY = 0x0
FILL = -1
MAX = -1
ARYLEN = 0x0
FLAGS = (REAL)
SV = IV(0x3f9ad8) at 0x3f9adc
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x99bb0c
SV = PVAV(0x3fa970) at 0x99bb0c
REFCNT = 2
FLAGS = (PADMY,READONLY)
ARRAY = 0x0
FILL = -1
MAX = -1
ARYLEN = 0x0
FLAGS = (REAL)
Modification of a read-only value attempted at -e line 1.
That split is somehow is marking it readonly is so weird :D |