From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Tue, 18 Jun 1996 02:12:07 +0000 (+0000)
Subject: Correct cast in SAVEDESTRUCTOR macro
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=877c3cb57b3cfd1fab42d38930d7791bb022a60e;p=p5sagit%2Fp5-mst-13.2.git

Correct cast in SAVEDESTRUCTOR macro
---

diff --git a/scope.h b/scope.h
index 8845e7c..0ea343a 100644
--- a/scope.h
+++ b/scope.h
@@ -54,5 +54,5 @@
 #define SAVEFREEPV(p) save_freepv((char*)(p))
 #define SAVECLEARSV(sv) save_clearsv((SV**)(&sv))
 #define SAVEDELETE(h,k,l) save_delete((HV*)(h), (char*)(k), (I32)l)
-#define SAVEDESTRUCTOR(f,p) save_destructor(f,(void*)p)
+#define SAVEDESTRUCTOR(f,p) save_destructor((void(*)_((void*)))f,(void*)p)