Refactor: Fix a compiler warning.

* gettext-tools/src/x-perl.c: Remove a stray ';'.

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index d286b10c12bc96e5111dd081565ee74e958fa40e..fb254d9f8e2f1ebcb9375028cd9a2b9d256beece 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -338,7 +338,7 @@ perl_extractor_init_rest (struct perl_extractor *xp)
   xp->token_stack.items = NULL;
   xp->token_stack.nitems = 0;
   xp->token_stack.nitems_max = 0;
-};
+}
 
 
 /* ======================== Reading of characters.  ======================== */