diff: pidgin/plugins/perl/common/GtkIMHtml.xs
pidgin/plugins/perl/common/GtkIMHtml.xs
- branch
- release-2.x.y
- changeset 35992
- 34a67264df99
- parent 25122
- 56e73606e2b2
- child 36029
- cd7db320cf5c
--- a/pidgin/plugins/perl/common/GtkIMHtml.xs Tue May 06 19:38:50 2014 +0200 +++ b/pidgin/plugins/perl/common/GtkIMHtml.xs Tue May 06 20:07:13 2014 +0200 @@ -171,7 +171,10 @@ int i, t_len; PPCODE: t_GL = NULL; - t_len = av_len((AV *)SvRV(unused)); + if (unused) + t_len = av_len((AV *)SvRV(unused)); + else + t_len = 0; for (i = 0; i <= t_len; i++) { STRLEN t_sl;
