I32 Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags) { PERL_ARGS_ASSERT_UNPACK_STR; PERL_UNUSED_ARG(strbeg); PERL_UNUSED_ARG(new_s); PERL_UNUSED_ARG(ocnt); return unpackstring(pat, patend, s, strend, flags); }
const Array::Temp Call_stack::unpack(const Raw_string pattern, const Raw_string value) { prepare_call(); int count = unpackstring(const_cast<char*>(pattern.value), const_cast<char*>(pattern.value + pattern.length), const_cast<char*>(value.value), const_cast<char*>(value.value + value.length), value.utf8 && !IN_BYTES ? FLAG_UNPACK_DO_UTF8 : 0); finish_call(); return Array::Temp(interp, av_make(count, SP - count + 1), true); }