From: Guido Flohr <guido@imperia.net>
Date: Thu, 1 Apr 2010 10:20:45 +0000 (+0200)
Subject: Clarify code.
X-Git-Tag: v0.18~43
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=26aba54072c6155f632e33cba7e523e56326d512;p=thirdparty%2Fgettext.git

Clarify code.
---

diff --git a/gettext-tools/src/ChangeLog b/gettext-tools/src/ChangeLog
index d57806da8..47183dd53 100644
--- 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 f5f9f675b..c2e9fee96 100644
--- 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;
                     }
                 }