X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=src%2Fperl.c;h=8c57f57640e9480c5068f5cebf162cb67c40285a;hb=4e89060ceb1a14ec7f9abfe9caa6b0da7e76bd5c;hp=5ad99ee451e3018c915805157786c9c5e35d1abc;hpb=358bf39b09f69220fc8e1b6c2fe98e5e185e3364;p=collectd.git

diff --git a/src/perl.c b/src/perl.c
index 5ad99ee4..8c57f576 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -138,8 +138,8 @@ static int perl_flush(cdtime_t timeout, const char *identifier,
 typedef struct c_ithread_s {
   /* the thread's Perl interpreter */
   PerlInterpreter *interp;
-  _Bool running; /* thread is inside Perl interpreter */
-  _Bool shutdown;
+  bool running; /* thread is inside Perl interpreter */
+  bool shutdown;
   pthread_t pthread;
 
   /* double linked list of threads */
@@ -183,7 +183,7 @@ extern char **environ;
  * private variables
  */
 
-static _Bool register_legacy_flush = 1;
+static bool register_legacy_flush = true;
 
 /* if perl_threads != NULL perl_threads->head must
  * point to the "base" thread */
@@ -981,7 +981,7 @@ static int pplugin_dispatch_notification(pTHX_ HV *notif) {
  * Call perl sub with thread locking flags handled.
  */
 static int call_pv_locked(pTHX_ const char *sub_name) {
-  _Bool old_running;
+  bool old_running;
   int ret;
 
   c_ithread_t *t = (c_ithread_t *)pthread_getspecific(perl_thr_key);