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 (file)
--- 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 (file)
--- 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;