* private variables
*/
-static int flush_callback_registered = 0;
+static _Bool register_legacy_flush = 1;
/* if perl_threads != NULL perl_threads->head must
* point to the "base" thread */
ret = plugin_register_notification(pluginname, perl_notify, &userdata);
}
else if (PLUGIN_FLUSH == type) {
- if (0 == flush_callback_registered) { /* For collectd-5.6 only, #1731 */
- flush_callback_registered++;
+ if (1 == register_legacy_flush) { /* For collectd-5.7 only, #1731 */
+ register_legacy_flush = 0;
ret = plugin_register_flush("perl", perl_flush, /* user_data = */ NULL);
}
current_status = perl_config_includedir (aTHX_ c);
else if (0 == strcasecmp (c->key, "Plugin"))
current_status = perl_config_plugin (aTHX_ c);
- else if (0 == strcasecmp (c->key, "DisableOldFlush"))
- flush_callback_registered++;
+ else if (0 == strcasecmp (c->key, "RegisterLegacyFlush"))
+ cf_util_get_boolean (c, ®ister_legacy_flush);
else
{
log_warn ("Ignoring unknown config key \"%s\".", c->key);