diff options
Diffstat (limited to 'src/perl/irc/Server.xs')
| -rw-r--r-- | src/perl/irc/Server.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs index a330fb20..854a2a54 100644 --- a/src/perl/irc/Server.xs +++ b/src/perl/irc/Server.xs @@ -34,7 +34,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)); |