From 9ecbcc42a0773c843dba20b5bbe347b7c4342c9a Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 Apr 2002 14:01:35 +0000
Subject: NetWare tweaks from C Aditya.

p4raw-id: //depot/perl@15678
---
 NetWare/t/NWScripts.pl | 2 +-
 scope.c                | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/NetWare/t/NWScripts.pl b/NetWare/t/NWScripts.pl
index cb2938ebde..c659b0d165 100644
--- a/NetWare/t/NWScripts.pl
+++ b/NetWare/t/NWScripts.pl
@@ -11,7 +11,7 @@ $DirName = "t";
 
 # These scripts have problems (either abend or hang) as of now (11 May 2001).
 # So, they are commented out in the corresponding auto scripts, io.pl and lib.pl
-@ScriptsNotUsed = ("t/io/openpid.t", "t/lib/filehandle.t", "t/lib/memoize/t/expire_module_t.t");
+@ScriptsNotUsed = ("t/io/openpid.t", "t/lib/filehandle.t", "t/lib/memoize/t/expire_module_t.t", "t/lib/NEXT/t/next.t", "t/lib/Math/BigInt/t/require.t", "t/ext/B/t/debug.t","t/lib/IPC/Open3.t", "t/ext/B/t/showlex.t", "t/op/subst_wamp.t", "t/uni/upper.t");
 
 opendir(DIR, $DirName);
 @Dirs = readdir(DIR);
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;
-- 
cgit v1.2.1