qulogic/gplugin

Remove extra _plugin_ from GPluginPerlLoader.
feature/fix-perl-tcc
2019-01-25, Elliott Sales de Andrade
3570a01b60a7
Parents 0066128cbb73
Children 1c8ac56f13a6
Remove extra _plugin_ from GPluginPerlLoader.
--- a/perl/gplugin-perl-core.c Fri Jan 25 02:39:19 2019 -0500
+++ b/perl/gplugin-perl-core.c Fri Jan 25 04:35:21 2019 -0500
@@ -49,9 +49,9 @@
G_MODULE_EXPORT gboolean
gplugin_load(GPluginNativePlugin *plugin, GError **error) {
gplugin_perl_plugin_register(plugin);
- gplugin_perl_plugin_loader_register(plugin);
+ gplugin_perl_loader_register(plugin);
- gplugin_manager_register_loader(GPLUGIN_TYPE_PERL_PLUGIN_LOADER);
+ gplugin_manager_register_loader(GPLUGIN_TYPE_PERL_LOADER);
return TRUE;
}
--- a/perl/gplugin-perl-loader.c Fri Jan 25 02:39:19 2019 -0500
+++ b/perl/gplugin-perl-loader.c Fri Jan 25 04:35:21 2019 -0500
@@ -132,7 +132,7 @@
* API
*****************************************************************************/
void
-gplugin_perl_plugin_loader_register(GPluginNativePlugin *plugin) {
+gplugin_perl_loader_register(GPluginNativePlugin *plugin) {
if(g_once_init_enter(&type_real)) {
GType type = 0;
@@ -154,7 +154,7 @@
}
GType
-gplugin_perl_plugin_loader_get_type(void) {
+gplugin_perl_loader_get_type(void) {
if(G_UNLIKELY(type_real == 0)) {
g_warning("gplugin_perl_loader_get_type was called before "
"the type was registered!\n");
--- a/perl/gplugin-perl-loader.h Fri Jan 25 02:39:19 2019 -0500
+++ b/perl/gplugin-perl-loader.h Fri Jan 25 04:35:21 2019 -0500
@@ -15,15 +15,15 @@
* License along with this library; if not, see <http://www.gnu.org/licenses/>.
*/
-#ifndef GPLUGIN_PERL_PLUGIN_LOADER_H
-#define GPLUGIN_PERL_PLUGIN_LOADER_H
+#ifndef GPLUGIN_PERL_LOADER_H
+#define GPLUGIN_PERL_LOADER_H
-#define GPLUGIN_TYPE_PERL_PLUGIN_LOADER (gplugin_perl_plugin_loader_get_type())
-#define GPLUGIN_PERL_PLUGIN_LOADER(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), GPLUGIN_TYPE_PERL_PLUGIN_LOADER, GPluginPerlLoader))
-#define GPLUGIN_PERL_PLUGIN_LOADER_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((obj), GPLUGIN_TYPE_PERL_PLUGIN_LOADER, GPluginPerlLoaderClass))
-#define GPLUGIN_IS_PERL_PLUGIN_LOADER(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), GPLUGIN_TYPE_PERL_PLUGIN_LOADER))
-#define GPLUGIN_IS_PERL_PLUGIN_LOADER_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((obj), GPLUGIN_TYPE_PERL_PLUGIN_LOADER))
-#define GPLUGIN_PERL_PLUGIN_LOADER_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), GPLUGIN_TYPE_PERL_PLUGIN_LOADER, GPluginPerlLoaderClass))
+#define GPLUGIN_TYPE_PERL_LOADER (gplugin_perl_loader_get_type())
+#define GPLUGIN_PERL_LOADER(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), GPLUGIN_TYPE_PERL_LOADER, GPluginPerlLoader))
+#define GPLUGIN_PERL_LOADER_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((obj), GPLUGIN_TYPE_PERL_LOADER, GPluginPerlLoaderClass))
+#define GPLUGIN_IS_PERL_LOADER(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), GPLUGIN_TYPE_PERL_LOADER))
+#define GPLUGIN_IS_PERL_LOADER_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((obj), GPLUGIN_TYPE_PERL_LOADER))
+#define GPLUGIN_PERL_LOADER_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), GPLUGIN_TYPE_PERL_LOADER, GPluginPerlLoaderClass))
typedef struct _GPluginPerlLoader GPluginPerlLoader;
typedef struct _GPluginPerlLoaderClass GPluginPerlLoaderClass;
@@ -51,8 +51,8 @@
G_BEGIN_DECLS
-void gplugin_perl_plugin_loader_register(GPluginNativePlugin *plugin);
-GType gplugin_perl_plugin_loader_get_type(void);
+void gplugin_perl_loader_register(GPluginNativePlugin *plugin);
+GType gplugin_perl_loader_get_type(void);
G_END_DECLS