Overhaul the semantics of the warning

[p5sagit/p5-mst-13.2.git] / t / lib / h2ph.h

diff --git a/t/lib/h2ph.h b/t/lib/h2ph.h
index f13b69c..495789a 100644 (file)
--- a/t/lib/h2ph.h
+++ b/t/lib/h2ph.h
@@ -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