constify

[gitmo/Class-C3-XS.git] / XS.xs

diff --git a/XS.xs b/XS.xs
index f120168..7f092dc 100644 (file)
--- a/XS.xs
+++ b/XS.xs
@@ -271,8 +271,8 @@ XS(XS_Class_C3_XS_nextcan)
 {
     dVAR; dXSARGS;
 
-    SV* self;
-    I32 throw_nomethod;
+    SV* self = ST(0);
+    const I32 throw_nomethod = SvIVX(ST(1));
     register I32 cxix;
     register const PERL_CONTEXT *ccstack = cxstack;
     const PERL_SI *top_si = PL_curstackinfo;
@@ -297,9 +297,6 @@ XS(XS_Class_C3_XS_nextcan)
     HE* cache_entry;
     SV* cachekey;
 
-    self = ST(0);
-    throw_nomethod = SvIVX(ST(1));
-
     SP -= items;
 
     if(sv_isobject(self))