From: Brandon L Black <blblack@gmail.com>
Date: Mon, 4 Jun 2007 04:33:48 +0000 (+0000)
Subject: constify
X-Git-Tag: 0.07~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5e121c42fa6e1a12771153f6c97349c27832e9c;p=gitmo%2FClass-C3-XS.git

constify
---

diff --git a/XS.xs b/XS.xs
index f120168..7f092dc 100644
--- 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))