From 08953935c97ff6ff80c9785cad5ab0cb3f6bbdd0 Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Mon, 4 Aug 2003 20:43:06 +0000
Subject: [PATCH] Small tweaks.

---
 gettext-tools/tests/ChangeLog   |  6 ++++++
 gettext-tools/tests/lang-perl-1 |  9 ++++++---
 gettext-tools/tests/lang-perl-2 | 10 +++++-----
 gettext-tools/tests/xgettext-26 |  2 +-
 4 files changed, 18 insertions(+), 9 deletions(-)

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index f98ad4708..0956d26bd 100644
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,9 @@
+2003-08-04  Bruno Haible  <bruno@clisp.org>
+
+	* lang-perl-1: Small tweaks.
+	* lang-perl-2: Likewise.
+	* xgettext-26: Likewise.
+
 2003-08-04  Guido Flohr  <guido@imperia.net>
 
 	* format-perl-brace-1: Fix last patch,
diff --git a/gettext-tools/tests/lang-perl-1 b/gettext-tools/tests/lang-perl-1
index ed015e2db..9e99336c9 100755
--- a/gettext-tools/tests/lang-perl-1
+++ b/gettext-tools/tests/lang-perl-1
@@ -12,11 +12,14 @@ tmpfiles="$tmpfiles program.pl"
 cat <<\EOF > program.pl
 use Locale::Messages;
 textdomain "prog";
-bindtextdomain ("./");
+bindtextdomain "prog", "./";
 my $n = 2;
 print _"'Your command, please?', asked the waiter.";
+print "\n";
 printf ngettext ("a piece of cake", "%d pieces of cake", $n), $n;
+print "\n";
 printf _"%s is replaced by %s.", "FF", "EUR";
+print "\n";
 EOF
 
 tmpfiles="$tmpfiles prog.pot"
@@ -50,7 +53,7 @@ msgstr ""
 "Plural-Forms: nplurals=2; plural=(n > 1);\n"
 
 msgid "'Your command, please?', asked the waiter."
-msgstr "«Votre commande, s'il vous plait», dit le garçon."
+msgstr "Votre commande, s'il vous plait, dit le gar�n."
 
 # Les gateaux allemands sont les meilleurs du monde.
 #, perl-format
@@ -82,7 +85,7 @@ ${MSGFMT} -o fr/LC_MESSAGES/prog.mo fr.po
 tmpfiles="$tmpfiles prog.ok prog.out"
 : ${DIFF=diff}
 cat <<\EOF > prog.ok
-«Votre commande, s'il vous plait», dit le garçon.
+Votre commande, s'il vous plait, dit le gar�n.
 2 morceaux de gateau
 EUR remplace FF.
 EOF
diff --git a/gettext-tools/tests/lang-perl-2 b/gettext-tools/tests/lang-perl-2
index 6948ac12d..d77c345dd 100755
--- a/gettext-tools/tests/lang-perl-2
+++ b/gettext-tools/tests/lang-perl-2
@@ -13,11 +13,11 @@ cat <<\EOF > program.pl
 use Locale::TextDomain (prog => './');
 my $n = 2;
 print __"'Your command, please?', asked the waiter.";
-print "\n"
+print "\n";
 printf __n ("a piece of cake", "%d pieces of cake", $n), $n;
-print "\n"
+print "\n";
 printf __x ("{old} is replaced by {new}.", old => "FF", new => "EUR");
-print "\n"
+print "\n";
 EOF
 
 tmpfiles="$tmpfiles prog.pot"
@@ -51,7 +51,7 @@ msgstr ""
 "Plural-Forms: nplurals=2; plural=(n > 1);\n"
 
 msgid "'Your command, please?', asked the waiter."
-msgstr "«Votre commande, s'il vous plait», dit le garçon."
+msgstr "Votre commande, s'il vous plait, dit le gar�n."
 
 # Les gateaux allemands sont les meilleurs du monde.
 #, perl-format
@@ -83,7 +83,7 @@ ${MSGFMT} -o fr/LC_MESSAGES/prog.mo fr.po
 tmpfiles="$tmpfiles prog.ok prog.out"
 : ${DIFF=diff}
 cat <<\EOF > prog.ok
-«Votre commande, s'il vous plait», dit le garçon.
+Votre commande, s'il vous plait, dit le gar�n.
 2 morceaux de gateau
 EUR remplace FF.
 EOF
diff --git a/gettext-tools/tests/xgettext-26 b/gettext-tools/tests/xgettext-26
index 21c2eebc0..7c521a900 100755
--- a/gettext-tools/tests/xgettext-26
+++ b/gettext-tools/tests/xgettext-26
@@ -10,7 +10,7 @@ cat <<\EOF > xg-test26.pl
 use Locale::Messages;
 
 textdomain "prog";
-bindtextdomain ("./");
+bindtextdomain "prog", "./";
 
 s/foo/
           # stress test for string extraction /xe;
-- 
2.47.3