Tweak.

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index aff598571d4fe58cfeb127d0cde08e41be109d5d..fd5b53d0c7f96980011bf13655f442476fd64956 100644 (file)
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,9 @@
+2003-09-01  Bruno Haible  <bruno@clisp.org>
+
+       * xgettext-26: Add explicit symbol import to 'use' command.
+       * lang-perl-1: Likewise.
+       Suggested by Guido Flohr.
+
 2003-09-01  Bruno Haible  <bruno@clisp.org>
 
        * xgettext-29: New test, from Guido Flohr.

diff --git a/gettext-tools/tests/lang-perl-1 b/gettext-tools/tests/lang-perl-1
index 7612d8407ade11a952c2d6907db2a2a42e040dd3..12cb94a3a038e2adaf73071ec45680a23503faef 100755 (executable)
--- a/gettext-tools/tests/lang-perl-1
+++ b/gettext-tools/tests/lang-perl-1
@@ -10,7 +10,7 @@ trap 'rm -fr $tmpfiles' 1 2 3 15
 
 tmpfiles="$tmpfiles program.pl"
 cat <<\EOF > program.pl
-use Locale::Messages;
+use Locale::Messages qw (textdomain bindtextdomain ngettext);
 textdomain "prog";
 bindtextdomain "prog", "./";
 my $n = 2;

diff --git a/gettext-tools/tests/xgettext-26 b/gettext-tools/tests/xgettext-26
index 7c521a900de910eb1665e038b189e7a59556e0d4..9b974fc06e6241ce88a9003db945da49ce84a55f 100755 (executable)
--- a/gettext-tools/tests/xgettext-26
+++ b/gettext-tools/tests/xgettext-26
@@ -7,7 +7,7 @@ trap 'rm -fr $tmpfiles' 1 2 3 15
 
 tmpfiles="$tmpfiles xg-test26.pl"
 cat <<\EOF > xg-test26.pl
-use Locale::Messages;
+use Locale::Messages qw (textdomain bindtextdomain gettext ngettext dngettext);
 
 textdomain "prog";
 bindtextdomain "prog", "./";