From 76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 30 Jan 1998 09:23:36 +0000
Subject: [asperl] added AS patch#2

p4raw-id: //depot/asperl@443
---
 scope.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'scope.c')

diff --git a/scope.c b/scope.c
index 3b4428f945..0e3245147d 100644
--- a/scope.c
+++ b/scope.c
@@ -112,7 +112,7 @@ free_tmps(void)
     }
 }
 
-static SV *
+STATIC SV *
 save_scalar_at(SV **sptr)
 {
     dTHR;
@@ -440,7 +440,11 @@ save_list(register SV **sarg, I32 maxsarg)
 }
 
 void
+#ifdef PERL_OBJECT
+save_destructor(void (*f) (void*, void*), void* p)
+#else
 save_destructor(void (*f) (void *), void *p)
+#endif
 {
     dTHR;
     SSCHECK(3);
@@ -676,7 +680,7 @@ leave_scope(I32 base)
 	    break;
 	case SAVEt_DESTRUCTOR:
 	    ptr = SSPOPPTR;
-	    (*SSPOPDPTR)(ptr);
+	    (*SSPOPDPTR)(THIS_ ptr);
 	    break;
 	case SAVEt_REGCONTEXT:
 	    {
-- 
cgit v1.2.1