C++ build fix

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index a400afde7a4ef860f8a228dc56b97a5179e7b292..bb9084245f10924daabf95af75207082d7aa5ba9 100644 (file)
--- 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);