diff -r a233a848e482 -r e0826e3b631b libpurple/plugins/perl/common/Util.xs