diff options
Diffstat (limited to 'src/perl/perl-common.c')
| -rw-r--r-- | src/perl/perl-common.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 198da57d..c5037ba6 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -19,6 +19,7 @@ */ #define NEED_PERL_H +#define PERL_NO_GET_CONTEXT #include "module.h" #include "modules.h" #include "signals.h" @@ -54,7 +55,7 @@ static GSList *use_protocols; /* returns the package who called us */ const char *perl_get_package(void) { - return SvPV(perl_eval_pv("caller", TRUE), PL_na); + return SvPV_nolen(perl_eval_pv("caller", TRUE)); } /* Parses the package part from function name */ @@ -81,7 +82,7 @@ SV *perl_func_sv_inc(SV *func, const char *package) if (SvPOK(func)) { /* prefix with package name */ name = g_strdup_printf("%s::%s", package, - (char *) SvPV(func, PL_na)); + SvPV_nolen(func)); func = new_pv(name); g_free(name); } else { |