get rid of PL_na

This commit is contained in:
Lukas Mai 2011-11-06 20:47:00 +01:00 committed by Ailin Nemui
commit 7dbb8efdde
10 changed files with 26 additions and 26 deletions

View file

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