--- a/libgaim/plugins/perl/perl-common.c Thu Oct 12 13:42:11 2006 +0000 +++ b/libgaim/plugins/perl/perl-common.c Thu Oct 12 20:38:47 2006 +0000 @@ -447,6 +447,9 @@ case GAIM_SUBTYPE_XFER: stash = "Gaim::Xfer"; break; + case GAIM_SUBTYPE_XMLNODE: + stash = "Gaim::XMLNode"; + break; default: stash = "Gaim"; /* ? */