From: Vincent Pit <vince@profvince.com>
Date: Tue, 24 Mar 2015 02:30:16 +0000 (-0300)
Subject: Don't compile su_uplevel_storage_delete() before perl 5.13.7
X-Git-Tag: v0.27~7
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=52f4d61f228f6e76a229b389c897932d2b5c3e62;p=perl%2Fmodules%2FScope-Upper.git

Don't compile su_uplevel_storage_delete() before perl 5.13.7

As it is unused on these older perls.
---

diff --git a/Upper.xs b/Upper.xs
index 272028d..7cbbaa2 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1381,6 +1381,8 @@ static su_uplevel_ud *su_uplevel_storage_new(pTHX_ I32 cxix) {
  return sud;
 }
 
+#if SU_HAS_PERL(5, 13, 7)
+
 static void su_uplevel_storage_delete(pTHX_ su_uplevel_ud *sud) {
 #define su_uplevel_storage_delete(S) su_uplevel_storage_delete(aTHX_ (S))
  dMY_CXT;
@@ -1408,6 +1410,8 @@ static void su_uplevel_storage_delete(pTHX_ su_uplevel_ud *sud) {
  }
 }
 
+#endif
+
 static int su_uplevel_goto_static(const OP *o) {
  for (; o; o = OpSIBLING(o)) {
   /* goto ops are unops with kids. */