perl plugin: mark file variable as const

diff --git a/src/perl.c b/src/perl.c
index c25bfe897870a8a83457c1c60e91b59c6767aa3e..36c1e26743a3c84baa9da5dcf4899d03eef94d66 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -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;