From 7dbb8efdde3720fd15f06de088848259e24e3397 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Sun, 6 Nov 2011 20:47:00 +0100
Subject: get rid of PL_na

---
 src/perl/irc/Server.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/perl/irc')

diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs
index a330fb20..854a2a54 100644
--- a/src/perl/irc/Server.xs
+++ b/src/perl/irc/Server.xs
@@ -34,7 +34,7 @@ static GSList *event_hash2list(HV *hv)
 	while ((he = hv_iternext(hv)) != NULL) {
 		I32 len;
 		char *key = hv_iterkey(he, &len);
-		char *value = SvPV(HeVAL(he), PL_na);
+		char *value = SvPV_nolen(HeVAL(he));
 
 		list = g_slist_append(list, g_strdup(key));
 		list = g_slist_append(list, g_strdup(value));
-- 
cgit v1.2.3