… | |
… | |
1215 | } |
1215 | } |
1216 | else |
1216 | else |
1217 | { |
1217 | { |
1218 | /* read: check type and grow scalar as necessary */ |
1218 | /* read: check type and grow scalar as necessary */ |
1219 | SvUPGRADE (data, SVt_PV); |
1219 | SvUPGRADE (data, SVt_PV); |
|
|
1220 | if (SvLEN (data) >= SvCUR (data)) |
1220 | svptr = SvGROW (data, len + dataoffset + 1); |
1221 | svptr = SvGROW (data, len + dataoffset + 1); |
|
|
1222 | else if (SvCUR (data) < len + dataoffset) |
|
|
1223 | croak ("length + dataoffset outside of scalar, and cannot grow"); |
1221 | } |
1224 | } |
1222 | |
1225 | |
1223 | { |
1226 | { |
1224 | dREQ; |
1227 | dREQ; |
1225 | |
1228 | |