コード例 #1
0
ファイル: interpreter.C プロジェクト: Leont/libperl--
	const Regex Interpreter::regex(const String::Value& regexp, Raw_string flags) const {
		Scalar::Temp temp = implementation::Call_stack(raw_interp.get()).push(regexp, flags).sub_scalar("Embed::Perlpp::regexp");
		return Regex(std::unique_ptr<Regex::Implementation>(new Regex::Implementation(raw_interp.get(), temp.release())));
	}
コード例 #2
0
ファイル: call.C プロジェクト: Gustra/libperl--
void Perl_stack::push(const Scalar::Temp& value) {
    XPUSHs(sv_2mortal(value.has_ownership() ? value.release() : SvREFCNT_inc(value.get_SV(false))));
}