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/perl-core.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/perl/perl-core.c')

diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index 08d0738c..226be969 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -237,7 +237,7 @@ static int perl_script_eval(PERL_SCRIPT_REC *script)
 
         error = NULL;
 	if (SvTRUE(ERRSV)) {
-		error = SvPV(ERRSV, PL_na);
+		error = SvPV_nolen(ERRSV);
 
 		if (error != NULL) {
 			error = g_strdup(error);
-- 
cgit v1.2.3