diff options
Diffstat (limited to 'src/perl/irc/Server.xs')
| -rw-r--r-- | src/perl/irc/Server.xs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs index a330fb20..0e9ec672 100644 --- a/src/perl/irc/Server.xs +++ b/src/perl/irc/Server.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" static GSList *register_hash2list(HV *hv) @@ -34,7 +35,7 @@ static GSList *event_hash2list(HV *hv) while ((he = hv_iternext(hv)) != NULL) { I32 len; char *key = hv_iterkey(he, &len); - char *value = SvPV(HeVAL(he), PL_na); + char *value = SvPV_nolen(HeVAL(he)); list = g_slist_append(list, g_strdup(key)); list = g_slist_append(list, g_strdup(value)); |