1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00
freebsd-ports/security/p5-Crypt-Loki97/files/extrapatch-Loki97.xs
Yen-Ming Lee c06da79cfb - remove IGNORE on old perl
Submitted by:	leeym
Approved by:	maintainer via email
2005-12-30 20:38:46 +00:00

19 lines
551 B
Plaintext

--- Loki97.xs.orig Sat Dec 31 03:04:38 2005
+++ Loki97.xs Sat Dec 31 03:05:06 2005
@@ -4,6 +4,15 @@
#include "ppport.h"
#include "_loki97.c"
+/* try to be compatible with older perls */
+/* SvPV_nolen() macro first defined in 5.005_55 */
+/* this is slow, not threadsafe, but works */
+#include "patchlevel.h"
+#if (PATCHLEVEL == 4) || ((PATCHLEVEL == 5) && (SUBVERSION < 55))
+static STRLEN nolen_na;
+# define SvPV_nolen(sv) SvPV ((sv), nolen_na)
+#endif
+
typedef struct loki97 {
keyInstance enc_key, dec_key;
cipherInstance cipher;