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

get rid of PL_na

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

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

@ -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 {