← Back to branch summary

~ubuntu-branches/ubuntu/breezy/gettext/breezy

« back to all changes in this revision

Viewing changes to gettext-tools/examples/hello-perl/hello-2.pl.in

  • Committer: Bazaar Package Importer
  • Author(s): Santiago Vila
  • Date: 2004-03-14 17:40:02 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040314174002-p1ad5ldve1hqzhye
Tags: 0.14.1-2
* Added libexpat1-dev to Build-Depends, for glade support.
* Added libc0.1-dev to Build-Depends, for GNU/kFreeBSD.
* Removed special-casing of knetbsd-gnu in debian/rules.

Show diffs side-by-side

added added

removed removed

Lines of Context:
gettext-tools/examples/hello-perl/hello-2.pl.in
 
1
#!@PERL@
 
2
# Example for use of GNU gettext.
 
3
# Copyright (C) 2003 Free Software Foundation, Inc.
 
4
# This file is in the public domain.
 
5
#
 
6
# Source code of the Perl program, using the Locale::TextDomain API.
 
7
 
 
8
use Locale::TextDomain ("hello-perl" => "@localedir@");
 
9
use POSIX qw(getpid);
 
10
 
 
11
binmode STDOUT, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8.
 
12
 
 
13
print __"Hello, world!";
 
14
print "\n";
 
15
print __x ("This program is running as process number {pid}.", pid => getpid());
 
16
print "\n";