zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-20 00:52:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #59 from ailin-nemui/perl-pl-na

Browse source 
get rid of PL_na
This commit is contained in:
Alexander Færøy 2014-06-27 14:31:04 +02:00
commit b8c2915d79
10 changed files with 28 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/perl/perl-common.c
View file

@ -55,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 */
@ -82,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 {