In `perl.h`, there is:
```
#ifdef I_LIBUTIL
#include
#endif
```
and on FreeBSD, `I_LIBUTIL` is defined in Perl's `config.h`. That header does
not really appear to be necessary for Perl, but it has the side effect of
declaring a `properties` type. This is a generic name used in our code base, so
we hack around it with the preprocessor. Preferably, FreeBSD would fix that in
their Perl port in the future.
/*
* Copyright (C) 2011-2020 Gary Kramlich <grim@reaperworld.com>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, see <http://www.gnu.org/licenses/>.
*/
#include<glib/gi18n-lib.h>
#include<gplugin.h>
#include<gplugin-native.h>
#include"gplugin-lua-loader.h"
#include"gplugin-lua-plugin.h"
G_MODULE_EXPORTGPluginPluginInfo*
gplugin_query(G_GNUC_UNUSEDGError**error)
{
/* clang-format-11 formats this correctly, so this can be removed then. */
/* clang-format off */
constgchar*constauthors[]={
"Gary Kramlich <grim@reaperworld.com>",
NULL};
/* clang-format on */
/* clang-format off */
returngplugin_plugin_info_new(
"gplugin/lua-loader",
GPLUGIN_NATIVE_PLUGIN_ABI_VERSION,
"internal",TRUE,
"load-on-query",TRUE,
"name","Lua Plugin Loader",
"version",GPLUGIN_VERSION,
"license-id","LGPL-2.0-or-later",
"summary","A plugin that can load Lua plugins",
"description","This plugin allows the loading of plugins written in "