From: gfx <gfuji@cpan.org>
Date: Sun, 1 Nov 2009 06:18:10 +0000 (+0900)
Subject: More newSVpvs_share()
X-Git-Tag: 0.40_05~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3bbf4eef2ec22d6793445b077531b0de41ea39f8;p=gitmo%2FMouse.git

More newSVpvs_share()
---

diff --git a/mouse.h b/mouse.h
index dcadf8d..94f4431 100644
--- a/mouse.h
+++ b/mouse.h
@@ -63,8 +63,8 @@ bool mouse_is_class_loaded(pTHX_ SV*);
 
 #define mcall0(invocant, m)        mouse_call0(aTHX_ (invocant), (m))
 #define mcall1(invocant, m, arg1)  mouse_call1(aTHX_ (invocant), (m), (arg1))
-#define mcall0s(invocant, m)       mcall0((invocant), newSVpvs_flags(m, SVs_TEMP))
-#define mcall1s(invocant, m, arg1) mcall1((invocant), newSVpvs_flags(m, SVs_TEMP), (arg1))
+#define mcall0s(invocant, m)       mcall0((invocant), sv_2mortal(newSVpvs_share(m)))
+#define mcall1s(invocant, m, arg1) mcall1((invocant), sv_2mortal(newSVpvs_share(m)), (arg1))
 
 SV* mouse_call0(pTHX_ SV *const self, SV *const method);
 SV* mouse_call1(pTHX_ SV *const self, SV *const method, SV* const arg1);