projects
/
collectd.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
processes plugin: Fix error message.
[collectd.git]
/
src
/
perl.c
diff --git
a/src/perl.c
b/src/perl.c
index
9268086
..
1bb0b33
100644
(file)
--- a/
src/perl.c
+++ b/
src/perl.c
@@
-706,10
+706,8
@@
static int value_list2hv(pTHX_ value_list_t *vl, data_set_t *ds, HV *hash) {
static int notification_meta2av(pTHX_ notification_meta_t *meta, AV *array) {
int meta_num = 0;
static int notification_meta2av(pTHX_ notification_meta_t *meta, AV *array) {
int meta_num = 0;
-
- while (meta) {
+ for (notification_meta_t *m = meta; m != NULL; m = m->next) {
++meta_num;
++meta_num;
- meta = meta->next;
}
av_extend(array, meta_num);
}
av_extend(array, meta_num);
@@
-2093,7
+2091,7
@@
static int perl_init(void) {
/* Lock the base thread to avoid race conditions with c_ithread_create().
* See https://github.com/collectd/collectd/issues/9 and
* https://github.com/collectd/collectd/issues/1706 for details.
/* Lock the base thread to avoid race conditions with c_ithread_create().
* See https://github.com/collectd/collectd/issues/9 and
* https://github.com/collectd/collectd/issues/1706 for details.
- */
+
*/
assert(aTHX == perl_threads->head->interp);
pthread_mutex_lock(&perl_threads->mutex);
assert(aTHX == perl_threads->head->interp);
pthread_mutex_lock(&perl_threads->mutex);
@@
-2184,7
+2182,7
@@
static void perl_log(int level, const char *msg, user_data_t *user_data) {
/* Lock the base thread if this is not called from one of the read threads
* to avoid race conditions with c_ithread_create(). See
* https://github.com/collectd/collectd/issues/9 for details.
/* Lock the base thread if this is not called from one of the read threads
* to avoid race conditions with c_ithread_create(). See
* https://github.com/collectd/collectd/issues/9 for details.
- */
+
*/
if (aTHX == perl_threads->head->interp)
pthread_mutex_lock(&perl_threads->mutex);
if (aTHX == perl_threads->head->interp)
pthread_mutex_lock(&perl_threads->mutex);
@@
-2343,14
+2341,25
@@
static int g_interval_set(pTHX_ SV *var, MAGIC *mg) {
return 0;
} /* static int g_interval_set (pTHX_ SV *, MAGIC *) */
return 0;
} /* static int g_interval_set (pTHX_ SV *, MAGIC *) */
-static MGVTBL g_pv_vtbl = {g_pv_get, g_pv_set, NULL, NULL, NULL, NULL, NULL
+static MGVTBL g_pv_vtbl = {g_pv_get,
+ g_pv_set,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL
#if HAVE_PERL_STRUCT_MGVTBL_SVT_LOCAL
,
NULL
#endif
};
#if HAVE_PERL_STRUCT_MGVTBL_SVT_LOCAL
,
NULL
#endif
};
-static MGVTBL g_interval_vtbl = {g_interval_get, g_interval_set, NULL, NULL,
- NULL, NULL, NULL
+static MGVTBL g_interval_vtbl = {g_interval_get,
+ g_interval_set,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL
#if HAVE_PERL_STRUCT_MGVTBL_SVT_LOCAL
,
NULL
#if HAVE_PERL_STRUCT_MGVTBL_SVT_LOCAL
,
NULL
@@
-2385,8
+2394,8
@@
static void xs_init(pTHX) {
* tie() in Perl) */
/* global strings */
struct {
* tie() in Perl) */
/* global strings */
struct {
-
char name[64];
-
char *var;
+ char name[64];
+ char *var;
} g_strings[] = {{"Collectd::hostname_g", hostname_g}, {"", NULL}};
for (int i = 0; '\0' != g_strings[i].name[0]; ++i) {
} g_strings[] = {{"Collectd::hostname_g", hostname_g}, {"", NULL}};
for (int i = 0; '\0' != g_strings[i].name[0]; ++i) {