From: Bruno Haible <bruno@clisp.org>
Date: Sun, 7 Dec 2003 12:50:21 +0000 (+0000)
Subject: Make it work.
X-Git-Tag: v0.13.1~25
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bf4cf4a2f9193f1667430f10264e1b708f84933f;p=thirdparty%2Fgettext.git

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 58323d137..4ae7123d2 100644
--- 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@";