From: Jarkko Hietaniemi Date: Tue, 23 Apr 2002 02:18:10 +0000 (+0000) Subject: # cpp commands must start in the first column. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e54c26f53564b5737dcb438c320fe8102819ec8;p=p5sagit%2Fp5-mst-13.2.git # cpp commands must start in the first column. p4raw-id: //depot/perl@16098 --- diff --git a/scope.c b/scope.c index 3262794..595fe12 100644 --- a/scope.c +++ b/scope.c @@ -673,11 +673,11 @@ Perl_leave_scope(pTHX_ I32 base) str = (char*)SSPOPPTR; ptr = SSPOPPTR; if (*(char**)ptr != str) { - #ifdef NETWARE +#ifdef NETWARE PerlMem_free(*(char**)ptr); - #else +#else PerlMemShared_free(*(char**)ptr); - #endif +#endif *(char**)ptr = str; } break;