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

@ -302,7 +302,7 @@ static void perl_call_signal(PERL_SCRIPT_REC *script, SV *func,
SPAGAIN;
if (SvTRUE(ERRSV)) {
char *error = g_strdup(SvPV(ERRSV, PL_na));
char *error = g_strdup(SvPV_nolen(ERRSV));
signal_emit("script error", 2, script, error);
g_free(error);
rec = NULL;