Make it work with Perl 5.8.0.

diff --git a/gettext-tools/examples/ChangeLog b/gettext-tools/examples/ChangeLog
index 516063dba51c96a4e44448f59cab43d9275286f7..12a66deda018eb13891fea023bf041556e539a91 100644 (file)
--- a/gettext-tools/examples/ChangeLog
+++ b/gettext-tools/examples/ChangeLog
@@ -1,3 +1,10 @@
+2003-12-29  Bruno Haible  <bruno@clisp.org>
+
+       * hello-perl/INSTALL: Mention that libintl-perl-1.09 required.
+       * hello-perl/hello-1.pl.in, hello-perl/hello-2.pl.in: Inhibit the
+       automatic UTF-8 conversion in UTF-8 locales with Perl-5.8.0. Thanks to
+       Guido Flohr.
+
 2003-12-26  Bruno Haible  <bruno@clisp.org>
 
        * hello-csharp: New subdirectory.

diff --git a/gettext-tools/examples/hello-perl/INSTALL b/gettext-tools/examples/hello-perl/INSTALL
index 6fc80440b6754dbfef379d2c8ded411fa6d1568f..609157aa264fbed7b0d220e59157aa0d281ebd37 100644 (file)
--- a/gettext-tools/examples/hello-perl/INSTALL
+++ b/gettext-tools/examples/hello-perl/INSTALL
@@ -1,5 +1,6 @@
 This example relies on:
   - Perl (perl)
+  - libintl-perl 1.09 or newer
 
 Installation:
   ./autogen.sh

diff --git a/gettext-tools/examples/hello-perl/hello-1.pl.in b/gettext-tools/examples/hello-perl/hello-1.pl.in
index 4ae7123d2aed6318e691998f153168f26d4e8c3e..885311ab68c3ff85deb62204a70c65ea3294b315 100644 (file)
--- a/gettext-tools/examples/hello-perl/hello-1.pl.in
+++ b/gettext-tools/examples/hello-perl/hello-1.pl.in
@@ -8,6 +8,8 @@
 use Locale::Messages qw (textdomain bindtextdomain gettext);
 use POSIX qw(getpid);
 
+binmode STDOUT, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8.
+
 sub _ ($) { &gettext; }
 
 textdomain "hello-perl";

diff --git a/gettext-tools/examples/hello-perl/hello-2.pl.in b/gettext-tools/examples/hello-perl/hello-2.pl.in
index 529545900ea83c069bbee1c5165759d3bc511a59..76573b2a97de044c26a17e4a35f0f51b09255099 100644 (file)
--- a/gettext-tools/examples/hello-perl/hello-2.pl.in
+++ b/gettext-tools/examples/hello-perl/hello-2.pl.in
@@ -8,6 +8,8 @@
 use Locale::TextDomain ("hello-perl" => "@localedir@");
 use POSIX qw(getpid);
 
+binmode STDOUT, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8.
+
 print __"Hello, world!";
 print "\n";
 print __x ("This program is running as process number {pid}.", pid => getpid());