From: Yuval Kogman <nothingmuch@woobling.org>
Date: Mon, 11 Aug 2008 00:35:12 +0000 (+0000)
Subject: simplify idiot PUSHs/SPAGAIN incest
X-Git-Tag: 0_64_01~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0eb2957da45ab7693a5e8497562e13be22519004;p=gitmo%2FClass-MOP.git

simplify idiot PUSHs/SPAGAIN incest
---

diff --git a/MOP.xs b/MOP.xs
index b7dfd03..f9f5d9b 100644
--- a/MOP.xs
+++ b/MOP.xs
@@ -136,14 +136,10 @@ get_all_package_symbols(package, ...)
                 EXTEND(SP, HvKEYS(stash) * 2);
 
                 while ((entry = hv_iternext(stash))) {
-                    SV *sv;
-                    SPAGAIN;
-                    sv = hv_iterkeysv(entry);
-                    SPAGAIN;
-                    PUSHs(sv);
-                    PUTBACK;
-                    sv = hv_iterval(stash, entry);
+                    SV *key = hv_iterkeysv(entry);
+                    SV *sv = hv_iterval(stash, entry);
                     SPAGAIN;
+                    PUSHs(key);
                     PUSHs(sv);
                     PUTBACK;
                 }