perl plugin: mark file variable as const

[collectd.git] / src / perl.c

diff --git a/src/perl.c b/src/perl.c
index 0c5ee0c..36c1e26 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -2076,7 +2076,7 @@ static int perl_shutdown (void)
                return 0;
 
        if (NULL == aTHX) {
-               c_ithread_t *t = NULL;
+               t = NULL;
 
                pthread_mutex_lock (&perl_threads->mutex);
                t = c_ithread_create (perl_threads->head->interp);
@@ -2179,9 +2179,9 @@ static MGVTBL g_interval_vtbl = {
 /* bootstrap the Collectd module */
 static void xs_init (pTHX)
 {
-       HV   *stash = NULL;
-       SV   *tmp   = NULL;
-       char *file  = __FILE__;
+       HV         *stash = NULL;
+       SV         *tmp   = NULL;
+       const char *file  = __FILE__;
 
        int i = 0;