X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FByteLoader%2FByteLoader.xs;h=e927d16f31770bf02a5d194df8621f6f97f528d2;hb=cea2e8a9dd23747fd2b66edc86c58c64e9970321;hp=dd300be3be3db389a634e74beaa3a421aec9e972;hpb=f019efd000a9017df645fb6c4cce1e7401ac9445;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/ByteLoader/ByteLoader.xs b/ext/ByteLoader/ByteLoader.xs
index dd300be..e927d16 100644
--- a/ext/ByteLoader/ByteLoader.xs
+++ b/ext/ByteLoader/ByteLoader.xs
@@ -16,7 +16,7 @@ static I32
 #ifdef PERL_OBJECT
 byteloader_filter(CPerlObj *pPerl, int idx, SV *buf_sv, int maxlen)
 #else
-byteloader_filter(int idx, SV *buf_sv, int maxlen)
+byteloader_filter(pTHX_ int idx, SV *buf_sv, int maxlen)
 #endif
 {
     dTHR;