]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
C++ build fix
authorVincent Pit <vince@profvince.com>
Sat, 10 Jan 2009 16:03:23 +0000 (17:03 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 10 Jan 2009 16:03:23 +0000 (17:03 +0100)
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);