projects
/
collectd.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d6aca8d
)
perl plugin: Be more consistent about capitalization.
author
Sebastian Harl
<sh@tokkee.org>
Mon, 30 May 2016 19:59:46 +0000
(21:59 +0200)
committer
Sebastian Harl
<sh@tokkee.org>
Mon, 30 May 2016 19:59:46 +0000
(21:59 +0200)
src/perl.c
patch
|
blob
|
history
diff --git
a/src/perl.c
b/src/perl.c
index
1c0bb4a
..
19b0cb2
100644
(file)
--- a/
src/perl.c
+++ b/
src/perl.c
@@
-24,7
+24,7
@@
* interface for collectd plugins written in perl.
*/
* interface for collectd plugins written in perl.
*/
-/* do not automatically get the thread specific
p
erl interpreter */
+/* do not automatically get the thread specific
P
erl interpreter */
#define PERL_NO_GET_CONTEXT
#define DONT_POISON_SPRINTF_YET 1
#define PERL_NO_GET_CONTEXT
#define DONT_POISON_SPRINTF_YET 1
@@
-112,7
+112,7
@@
static XS (Collectd_call_by_name);
typedef struct c_ithread_s {
/* the thread's Perl interpreter */
PerlInterpreter *interp;
typedef struct c_ithread_s {
/* the thread's Perl interpreter */
PerlInterpreter *interp;
- _Bool running; /* thread is inside
pi
*/
+ _Bool running; /* thread is inside
Perl interpreter
*/
_Bool shutdown;
pthread_t pthread;
_Bool shutdown;
pthread_t pthread;
@@
-1160,7
+1160,7
@@
static int pplugin_call_all (pTHX_ int type, ...)
} /* static int pplugin_call_all (int, ...) */
/*
} /* static int pplugin_call_all (int, ...) */
/*
- * collectd's
p
erl interpreter based thread implementation.
+ * collectd's
P
erl interpreter based thread implementation.
*
* This has been inspired by Perl's ithreads introduced in version 5.6.0.
*/
*
* This has been inspired by Perl's ithreads introduced in version 5.6.0.
*/
@@
-2136,15
+2136,15
@@
static int perl_shutdown (void)
thr->shutdown = 1;
if (thr->running) {
thr->shutdown = 1;
if (thr->running) {
- /* Give some time to thread to exit from
pi
*/
- WARNING ("perl shutdown:
thread is running inside p
erl. Waiting.");
+ /* Give some time to thread to exit from
Perl interpreter
*/
+ WARNING ("perl shutdown:
Thread is running inside P
erl. Waiting.");
ts_wait.tv_sec = 0;
ts_wait.tv_nsec = 500000;
nanosleep (&ts_wait, NULL);
}
if (thr->running) {
ts_wait.tv_sec = 0;
ts_wait.tv_nsec = 500000;
nanosleep (&ts_wait, NULL);
}
if (thr->running) {
- ERROR ("perl shutdown: thread hangs inside perl. Thread killed.");
pthread_kill (thr->pthread, SIGTERM);
pthread_kill (thr->pthread, SIGTERM);
+ ERROR ("perl shutdown: Thread hangs inside Perl. Thread killed.");
}
c_ithread_destroy (thr);
}
}
c_ithread_destroy (thr);
}
@@
-2374,7
+2374,7
@@
static int perl_config_loadplugin (pTHX_ oconfig_item_t *ci)
aTHX = perl_threads->head->interp;
aTHX = perl_threads->head->interp;
- log_debug ("perl_config:
loading p
erl plugin \"%s\"", value);
+ log_debug ("perl_config:
Loading P
erl plugin \"%s\"", value);
load_module (PERL_LOADMOD_NOIMPORT,
newSVpv (module_name, strlen (module_name)), Nullsv);
return 0;
load_module (PERL_LOADMOD_NOIMPORT,
newSVpv (module_name, strlen (module_name)), Nullsv);
return 0;