+
+ if ($range =~ m/^\[=(\d+)\]$/) {
+ die "Object size incorrect (ref $ref_str, actual size $object_size"
+ if $object_size != $1;
+ ($start, $length) = (0, $1 + 0);
+ } elsif ($range =~ m/^\[(\d+)\]$/) {
+ ($start, $length) = (0, $1 + 0);
+ } elsif ($range =~ m/^\[(\d+)\+(\d+)\]$/) {
+ ($start, $length) = ($1 + 0, $2 + 0);