From: Vincent Pit <vince@profvince.com>
Date: Sat, 10 Jan 2009 16:03:23 +0000 (+0100)
Subject: C++ build fix
X-Git-Tag: v0.04~16
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c658db5abb6b46993e990749ed3804f297322cb7;p=perl%2Fmodules%2FScope-Upper.git

C++ build fix
---

diff --git a/Upper.xs b/Upper.xs
index a400afd..bb90842 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -114,7 +114,7 @@ typedef struct {
 } su_ud_adelete;
 
 STATIC void su_adelete(pTHX_ void *ud_) {
- su_ud_adelete *ud = ud_;
+ su_ud_adelete *ud = (su_ud_adelete *) ud_;
 
  av_delete(ud->av, ud->idx, G_DISCARD);
  SvREFCNT_dec(ud->av);