diff options
Diffstat (limited to 'src/perl/perl-sources.c')
| -rw-r--r-- | src/perl/perl-sources.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c index 1697dbd2..33fe6dd1 100644 --- a/src/perl/perl-sources.c +++ b/src/perl/perl-sources.c @@ -19,6 +19,7 @@ */ #define NEED_PERL_H +#define PERL_NO_GET_CONTEXT #include "module.h" #include "signals.h" @@ -82,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); } |