This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In the PERL_IMPLICIT_SYS section in perl_free(), use fewer CPP directives.
authorNicholas Clark <nick@ccl4.org>
Mon, 18 Jul 2011 18:49:28 +0000 (19:49 +0100)
committerNicholas Clark <nick@ccl4.org>
Tue, 2 Jul 2013 20:05:05 +0000 (22:05 +0200)
commitbdb504800671ce2688cdfd83ea9009b88b2d5164
tree9c1746d43a9ae6c7b588576634a43fd8c2c2c1da
parentfe8266635e349641571e2ce349be3cc30e7bc51b
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