diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index aa774cc6..5d790a5e 100644
--- a/src/perl/perl-core.c
+++ b/src/perl/perl-core.c
@@ -169,7 +169,7 @@ void perl_scripts_deinit(void)
    translated to '_' */
 void script_fix_name(char *name)
 {
-	char *ret, *p;
+	char *p;
 
 	p = strrchr(name, '.');
 	if (p != NULL) *p = '\0';