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

@ -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);