From: Bruno Haible <bruno@clisp.org>
Date: Sun, 7 Dec 2003 12:49:42 +0000 (+0000)
Subject: Test using Locale::TextDomain API.
X-Git-Tag: v0.13.1~26
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=387ce70d2a5a1dc5d978c9cfcc3c18d588be6ce7;p=thirdparty%2Fgettext.git

Test using Locale::TextDomain API.
---

diff --git a/gettext-tools/examples/hello-perl/hello-2.pl.in b/gettext-tools/examples/hello-perl/hello-2.pl.in
new file mode 100644
index 000000000..529545900
--- /dev/null
+++ b/gettext-tools/examples/hello-perl/hello-2.pl.in
@@ -0,0 +1,14 @@
+#!@PERL@
+# Example for use of GNU gettext.
+# Copyright (C) 2003 Free Software Foundation, Inc.
+# This file is in the public domain.
+#
+# Source code of the Perl program, using the Locale::TextDomain API.
+
+use Locale::TextDomain ("hello-perl" => "@localedir@");
+use POSIX qw(getpid);
+
+print __"Hello, world!";
+print "\n";
+print __x ("This program is running as process number {pid}.", pid => getpid());
+print "\n";