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

@ -83,7 +83,7 @@ static int perl_source_event(PERL_SOURCE_REC *rec)
SPAGAIN;
if (SvTRUE(ERRSV)) {
char *error = g_strdup(SvPV(ERRSV, PL_na));
char *error = g_strdup(SvPV_nolen(ERRSV));
signal_emit("script error", 2, rec->script, error);
g_free(error);
}