Files
RedBear-OS/recipes/tools/gettext/source/gettext-tools/examples/hello-perl/hello-2.pl.in
T
vasilito ff4ff35918 feat: track all source trees in git — full fork offline-first model
Red Bear OS is a full fork. All sources must be available from git clone
with zero network access. Removed gitignore rules that excluded fetched
source trees under recipes/*/source/, local/recipes/kde/*/source/,
local/recipes/qt/*/source/, and vendor source trees.

Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded.

127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt
frameworks, mesa, wayland, DRM drivers, and every other recipe source.
2026-05-14 10:55:53 +01:00

16 lines
441 B
Plaintext

#!@PERL@
# Example for use of GNU gettext.
# 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);
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());
print "\n";