Make it work.

diff --git a/gettext-tools/examples/hello-perl/hello-1.pl.in b/gettext-tools/examples/hello-perl/hello-1.pl.in
index 58323d137c30127e0a862129ed7a70275501547f..4ae7123d2aed6318e691998f153168f26d4e8c3e 100644 (file)
--- a/gettext-tools/examples/hello-perl/hello-1.pl.in
+++ b/gettext-tools/examples/hello-perl/hello-1.pl.in
@@ -3,11 +3,13 @@
 # Copyright (C) 2003 Free Software Foundation, Inc.
 # This file is in the public domain.
 #
-# Source code of the Perl program.
+# Source code of the Perl program, using the Locale::Messages API.
 
-use Locale::Messages;
+use Locale::Messages qw (textdomain bindtextdomain gettext);
 use POSIX qw(getpid);
 
+sub _ ($) { &gettext; }
+
 textdomain "hello-perl";
 bindtextdomain "hello-perl", "@localedir@";