Correct cast in SAVEDESTRUCTOR macro
Perl 5 Porters [Tue, 18 Jun 1996 02:12:07 +0000 (02:12 +0000)]
scope.h

diff --git a/scope.h b/scope.h
index 8845e7c..0ea343a 100644 (file)
--- 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)