From 617123b5d414b9b44159d1fe2a0bc57b0f272f08 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Tue, 11 Dec 2001 16:44:53 +0000 Subject: I always forget Perl 5.004 doesn't have PL_na .. so, now I've declared for 5.004, and changed all STRLEN n_a code to use PL_na instead. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2238 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/ui/Formats.xs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/perl/ui/Formats.xs') diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs index 84368d78..0ad8c86a 100644 --- a/src/perl/ui/Formats.xs +++ b/src/perl/ui/Formats.xs @@ -14,12 +14,11 @@ PREINIT: char **charargs; char *ret; int n; - STRLEN n_a; PPCODE: charargs = g_new0(char *, items-5+1); charargs[items-5] = NULL; for (n = 5; n < items; n++) { - charargs[n-5] = (char *)SvPV(ST(n), n_a); + charargs[n-5] = (char *)SvPV(ST(n), PL_na); } ret = format_get_text(module, window, server, target, formatnum, charargs); g_free(charargs); -- cgit v1.2.3