This add a static inline version of `g_memdup2` if the version of glib we're
compiling against doesn't have the function.
GHSL-2021-045 was originally reported to glib at
https://gitlab.gnome.org/GNOME/glib/-/issues/2319.
More information about the entire situation can be found on the gnome
desktop-devel-list at
https://mail.gnome.org/archives/desktop-devel-list/2021-February/msg00000.html
Testing Done:
Compiled and ran tests locally.
Reviewed at https://reviews.imfreedom.org/r/483/
usePurple;
%PLUGIN_INFO=(
perl_api_version=>2,
name=>'Test Perl Plugin',
version=>'1.0',
summary=>'Provides as a test base for the perl plugin.',
description=>'Provides as a test base for the perl plugin.',
author=>'Etan Reisner <deryni\@pidgin.im>',
url=>'http://pidgin.im',
load=>"plugin_load"
);
subplugin_init{
return%PLUGIN_INFO;
}
subaccount_status_cb{
my($account,$old,$new,$data)=@_;
Purple::Debug::info("perl test plugin","In account_status_cb\n");
Purple::Debug::info("perl test plugin","Account ".
$account->get_username()." changed status.\n");
Purple::Debug::info("perl test plugin",$data."\n");
}
subplugin_load{
my$plugin=shift;
Purple::Debug::info("perl test plugin","plugin_load\n");
Purple::Debug::info("perl test plugin","Listing accounts.\n");
foreach$account(Purple::Accounts::get_all()){
Purple::Debug::info("perl test plugin",$account->get_username()."\n");