Small tweaks.

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index f98ad4708ebb9404ee4d876ca95cd4221ca049d6..0956d26bd5c69acba92b7c0936d7ea661b409e17 100644 (file)
--- 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 ed015e2db4fbcc2542d6cafd5c1a647f037be1ab..9e99336c957175e76213cc471250e3429ea6bcd4 100755 (executable)
--- 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 6948ac12d9ab019b190474be960d80e167fe852c..d77c345dd51300c8a8937e952fd96585c3fa4e80 100755 (executable)
--- 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 21c2eebc01a4debe1d327acda171a399f7071ecf..7c521a900de910eb1665e038b189e7a59556e0d4 100755 (executable)
--- 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;