diff options
| author | Lukas Mai <l.mai@web.de> | 2011-11-06 20:47:00 +0100 |
|---|---|---|
| committer | Ailin Nemui <ailin@esf51.localdomain> | 2014-06-24 16:45:55 +0200 |
| commit | 7dbb8efdde3720fd15f06de088848259e24e3397 (patch) | |
| tree | a9089a585049399bfca289b5fe89f0642e86c1bd /src/perl/perl-common.c | |
| parent | c26a634fe6f65f44cdd036d2657fe4335ed6e309 (diff) | |
| download | irssi-7dbb8efdde3720fd15f06de088848259e24e3397.zip | |
get rid of PL_na
Diffstat (limited to 'src/perl/perl-common.c')
| -rw-r--r-- | src/perl/perl-common.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 198da57d..12df78f7 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -54,7 +54,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 +81,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)); + (char *) SvPV_nolen(func)); func = new_pv(name); g_free(name); } else { |