/* scope.c
*
- * Copyright (c) 1991-2001, Larry Wall
+ * Copyright (c) 1991-2002, Larry Wall
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
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;