gplugin/gplugin
Clone
Summary
Browse
Changes
Graph
Fix plugin search with GLib 2.69.
2021-07-30, Elliott Sales de Andrade
fd4bb8956d03
Fix plugin search with GLib 2.69.
Named groups in `GRegex` with GLib 2.69 appear to return empty, not `NULL` strings, so handle that when running version comparison.
This is actually what GLib documents should happen, but I guess didn't work right before.
Testing Done:
Compiled and ran tests on Fedora Rawhide with GLib 2.69.
Reviewed at https://reviews.imfreedom.org/r/856/
/*
* 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 <https://www.gnu.org/licenses/>.
*/
#include
<gplugin.h>
#include
<gplugin-native.h>
#include
"gplugin-perl5-loader.h"
#include
"gplugin-perl5-plugin.h"
#undef _
#include
<glib/gi18n-lib.h>
static
GPluginPluginInfo
*
gplugin_perl5_query
(
G_GNUC_UNUSED
GError
**
error
)
{
const
gchar
*
const
authors
[]
=
{
"Gary Kramlich <grim@reaperworld.com>"
,
NULL
,
};
/* clang-format off */
return
gplugin_plugin_info_new
(
"gplugin/perl-loader"
,
GPLUGIN_NATIVE_PLUGIN_ABI_VERSION
,
"internal"
,
TRUE
,
"load-on-query"
,
TRUE
,
"name"
,
"Perl plugin loader"
,
"version"
,
GPLUGIN_VERSION
,
"license-id"
,
"LGPL-2.0-or-later"
,
"summary"
,
"A plugin that can load perl plugins"
,
"description"
,
"This plugin allows the loading of plugins written in "
"the perl programming language."
,
"authors"
,
authors
,
"website"
,
GPLUGIN_WEBSITE
,
"category"
,
"loaders"
,
"bind-global"
,
TRUE
,
NULL
);
/* clang-format on */
}
static
gboolean
gplugin_perl5_load
(
GPluginPlugin
*
plugin
,
GError
**
error
)
{
gplugin_perl_plugin_register
(
G_TYPE_MODULE
(
plugin
));
gplugin_perl_loader_register
(
G_TYPE_MODULE
(
plugin
));
return
gplugin_manager_register_loader
(
GPLUGIN_PERL_TYPE_LOADER
,
error
);
}
static
gboolean
gplugin_perl5_unload
(
G_GNUC_UNUSED
GPluginPlugin
*
plugin
,
GError
**
error
)
{
g_set_error_literal
(
error
,
GPLUGIN_DOMAIN
,
0
,
_
(
"The Perl loader can not be unloaded"
));
return
FALSE
;
}
GPLUGIN_NATIVE_PLUGIN_DECLARE
(
gplugin_perl5
)