On Sat, Mar 19, 2005 at 04:37:12PM +0300, Alexey Tourbin wrote: > The problem is that $in varialbe is not reset and "if" conditons hold > true till the end of file. Here is a patch (which has not been tested > yet, but seems to be reasonable offhand).
Here is a test that fails with the existing h2ph and passes with my proposed change to h2ph. (It is only about Tru64 Pascal; unfortunatelly, there's no easy way to test /^extern inline/ constructs as the desired effect depends on file location.) PS: please fix my English wherever applicable. --- perl-5.9.2.24046/t/lib/h2ph.h- 2003-03-13 22:07:49 +0000 +++ perl-5.9.2.24046/t/lib/h2ph.h 2005-03-19 14:08:07 +0000 @@ -56,6 +56,11 @@ # define WHATEVER 1000 #endif +/* Test passing through the alien constructs (perlbug #34493) */ +#ifdef __LANGUAGE_PASCAL__ +function Tru64_Pascal(n: Integer): Integer; +#endif + /* * Test #include, #import and #include_next * #include_next is difficult to test, it really depends on the actual End of patch
pgpiN3H32yyGf.pgp
Description: PGP signature
