Clarify code.

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index d57806da89151bfb1617edc68710cc5ab518f1ea..47183dd53c997fbf76bbaa1a671d935b77428153 100644 (file)
--- a/gettext-tools/src/ChangeLog
+++ b/gettext-tools/src/ChangeLog
@@ -1,5 +1,7 @@
 2010-03-31  Guido Flohr  <guido@imperia.net>
 
+       * x-perl.c (x_perl_prelex): Clarify interpolate_keywords arguments.
+
        * x-perl.c (eaten_here): Renamed from here_eaten.
        (phase1_getc, get_here_document, skip_pod, extract_perl): Update.
 

diff --git a/gettext-tools/src/x-perl.c b/gettext-tools/src/x-perl.c
index f5f9f675b1dc5c9bd6c7a11249845030a9310b43..c2e9fee96cf01285f2aa2ed7b6abb3e04f33bf8f 100644 (file)
--- a/gettext-tools/src/x-perl.c
+++ b/gettext-tools/src/x-perl.c
@@ -2433,7 +2433,7 @@ x_perl_prelex (message_list_ty *mlp, token_ty *tp)
                   tp->type = token_type_string;
                   tp->sub_type = string_type_qq;
                   tp->line_number = line_number + 1;
-                  interpolate_keywords (mlp, tp->string, line_number + 1);
+                  interpolate_keywords (mlp, tp->string, tp->line_number);
                   return;
                 }
               else if ((c >= 'A' && c <= 'Z')
@@ -2475,7 +2475,7 @@ x_perl_prelex (message_list_ty *mlp, token_ty *tp)
                       tp->sub_type = string_type_qq;
                       tp->comment = add_reference (savable_comment);
                       tp->line_number = line_number + 1;
-                      interpolate_keywords (mlp, tp->string, line_number + 1);
+                      interpolate_keywords (mlp, tp->string, tp->line_number);
                       return;
                     }
                 }