Merge pull request #59 from ailin-nemui/perl-pl-na

get rid of PL_na
This commit is contained in:
Alexander Færøy 2014-06-27 14:31:04 +02:00
commit b8c2915d79
10 changed files with 28 additions and 29 deletions

View file

@ -238,7 +238,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);