From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 Apr 2002 14:01:35 +0000 (+0000)
Subject: NetWare tweaks from C Aditya.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ecbcc42a0773c843dba20b5bbe347b7c4342c9a;p=p5sagit%2Fp5-mst-13.2.git

NetWare tweaks from C Aditya.

p4raw-id: //depot/perl@15678
---

diff --git a/NetWare/t/NWScripts.pl b/NetWare/t/NWScripts.pl
index cb2938e..c659b0d 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 d0646bc..3262794 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;