diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c
index 19889adf..3c47a6d7 100644
--- a/src/perl/perl-fe.c
+++ b/src/perl/perl-fe.c
@@ -201,7 +201,7 @@ static GList *script_complete(const char *name)
 		PERL_SCRIPT_REC *rec = tmp->data;
 
 		if (strncmp(rec->name, name, len) == 0)
-                        list = g_list_append(list, rec->name);
+                        list = g_list_append(list, g_strdup(rec->name));
 	}
 
         return list;