In the PERL_IMPLICIT_SYS section in perl_free(), use fewer CPP directives.smoke-me/sys_intern

1 files changed, 2 insertions, 4 deletions

diff --git a/perl.c b/perl.c
index 4878f9ca8b..55bdc35a00 100644
--- a/perl.c
+++ b/perl.c
@@ -1337,13 +1337,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
     }