Front page | perl.perl5.porters |
Postings from November 2000
> *** doio.c.FCS Tue Nov 14 10:55:05 2000
> --- doio.c Tue Nov 14 11:02:25 2000
> ***************
> *** 63,69 ****
> --- 63,80 ----
> # define INCLUDE_PROTOTYPES /* for <socks.h> */
> # define PERL_SOCKS_NEED_PROTOTYPES
> # endif
> + # undef SETERRNO /* socks5api.h will redefine it */
> # include <socks.h>
> + # undef SETERRNO /* undefine the SOCKS definition of that */
> + # ifdef VMS /* redo, what perl.h did concerning SETERRNO */
> + # define SETERRNO(errcode,vmserrcode) \
> + STMT_START { \
> + set_errno(errcode); \
> + set_vaxc_errno(vmserrcode); \
> + } STMT_END
> + # else
> + # define SETERRNO(errcode,vmserrcode) (errno = (errcode))
> + # endif
> # ifdef PERL_SOCKS_NEED_PROTOTYPES /* keep cpp space clean */
> # undef INCLUDE_PROTOTYPES
> # undef PERL_SOCKS_NEED_PROTOTYPES
I think that instead of repeating this undef-undef-redef dance twice
I will try hoisting the logic up to perl.h.
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
Thread Previous
|
Thread Next