diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-12-11 09:59:47 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-12-11 10:00:15 -0800 |
| commit | 765da30014382043124f566a8643a249ff4f3522 (patch) | |
| tree | e282e06ca84960d5627670560d5344d9d83faa5a | |
| parent | d85bc99c9c9a958c5899375414439c680be5e5ac (diff) | |
| download | perl-765da30014382043124f566a8643a249ff4f3522.tar.gz | |
APItest.xs: shenanigans to avoid warnings
We have an unresolved issue that #include "fakesdio.h" causes one
of the typemaps to make assignments between different pointer types,
something we can’t fix straightforwardly with casts, since adding
casts to the default typemap (which we are trying to test) may
suppress real problems in production. This is a temporary plaster
till we figure out what to do.
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 5dec99eb6b..a2d5d697b6 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -9,6 +9,9 @@ #include "EXTERN.h" #include "perl.h" #include "XSUB.h" + +typedef FILE NativeFile; + #include "fakesdio.h" /* Causes us to use PerlIO below */ typedef SV *SVREF; @@ -4313,6 +4316,9 @@ PerlIO_stdout() InputStream PerlIO_stdin() +#undef FILE +#define FILE NativeFile + FILE * PerlIO_exportFILE(PerlIO *f, const char *mode) |