perl plugin: Fixed an "unused variable" warning.

When compiling with debugging disabled, gcc complained about an unused
variable in init_pi(). -Werror thus caused the build to fail.

Signed-off-by: Sebastian Harl <sh@tokkee.org>
Signed-off-by: Florian Forster <octo@huhu.verplant.org>

diff --git a/src/perl.c b/src/perl.c
index c85d28854b9f8603f51ef09afbb9fc91106ab4bb..0b78defd864f2eb5dadcf7bb6c233ebf16198f58 100644 (file)
--- a/src/perl.c
+++ b/src/perl.c
@@ -865,15 +865,17 @@ static void xs_init (pTHX)
 /* Initialize the global Perl interpreter. */
 static int init_pi (int argc, char **argv)
 {
-       int i = 0;
-
        if (NULL != perl)
                return 0;
 
        log_info ("Initializing Perl interpreter...");
 #if COLLECT_DEBUG
-       for (i = 0; i < argc; ++i)
-               log_debug ("argv[%i] = \"%s\"", i, argv[i]);
+       {
+               int i = 0;
+
+               for (i = 0; i < argc; ++i)
+                       log_debug ("argv[%i] = \"%s\"", i, argv[i]);
+       }
 #endif /* COLLECT_DEBUG */
 
        PERL_SYS_INIT3 (&argc, &argv, &environ);