diff options
| -rw-r--r-- | NetWare/t/NWScripts.pl | 2 | ||||
| -rw-r--r-- | scope.c | 4 |
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); @@ -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; |