From bdb504800671ce2688cdfd83ea9009b88b2d5164 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 18 Jul 2011 19:49:28 +0100 Subject: In the PERL_IMPLICIT_SYS section in perl_free(), use fewer CPP directives. The diff is actually confusing to look at - the code itself makes things a lot clearer: # ifdef NETWARE void *host = nw_internal_host; PerlMem_free(aTHXx); nw_delete_internal_host(host); # else void *host = w32_internal_host; PerlMem_free(aTHXx); win32_delete_internal_host(host); # endif --- perl.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index feb031b7d3..bad66f5e01 100644 --- a/perl.c +++ b/perl.c @@ -1347,13 +1347,11 @@ perl_free(pTHXx) { # ifdef NETWARE void *host = nw_internal_host; -# else - void *host = w32_internal_host; -# endif PerlMem_free(aTHXx); -# ifdef NETWARE nw_delete_internal_host(host); # else + void *host = w32_internal_host; + PerlMem_free(aTHXx); win32_delete_internal_host(host); # endif } -- cgit v1.2.1