NetWare tweaks from C Aditya.

p4raw-id: //depot/perl@15678

2 files changed, 5 insertions, 1 deletions

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;