NetWare tweaks from C Aditya.

p4raw-id: //depot/perl@15678

1 files changed, 4 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index d0646bc248..3262794dd2 100644
--- a/scope.c
+++ b/scope.c
@@ -673,7 +673,11 @@ Perl_leave_scope(pTHX_ I32 base)
 	    str = (char*)SSPOPPTR;
 	    ptr = SSPOPPTR;
 	    if (*(char**)ptr != str) {
+		#ifdef NETWARE
+		PerlMem_free(*(char**)ptr);
+		#else
 		PerlMemShared_free(*(char**)ptr);
+		#endif
 		*(char**)ptr = str;
 	    }
 	    break;