From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 18 Jul 2011 18:49:28 +0000 (+0100)
Subject: In the PERL_IMPLICIT_SYS section in perl_free(), use fewer CPP directives.
X-Git-Tag: upstream/5.20.0~2852
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=bdb504800671ce2688cdfd83ea9009b88b2d5164;p=platform%2Fupstream%2Fperl.git

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
---

diff --git a/perl.c b/perl.c
index feb031b..bad66f5 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
     }