define aTHX_ when perl doesn't (perl 5.004 for example)

diff --git a/Changes b/Changes
index 623095ce486875f142233bc595de6e0f81dd2e16..d4e3457a13f80db6163569caae175b5b3b147b6a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -754,6 +754,7 @@ Revision history for Perl extension Imager.
        - the scale() method now produces a warning when called in
          void context.
        - font.c now only uses the defined T1Lib error codes
+       - define aTHX_ when perl doesn't (perl 5.004 for example)
 
 =================================================================
 

diff --git a/Imager.xs b/Imager.xs
index 9884e6849d077a132e27b39ef07f646d3dbf26d0..0a2c8006bfba40c40ea15cd204e0352d9638fc65 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -30,6 +30,10 @@ from IV to pointer types */
 #define PTR2IV(p) INT2PTR(IV,p)
 #endif
 
+#ifndef aTHX_
+#define aTHX_
+#endif
+
 #ifdef HAVE_LIBTT
 typedef TT_Fonthandle* Imager__Font__TT;
 #endif