vasilito
ff4ff35918
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.
21 lines
524 B
Plaintext
21 lines
524 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::Messages API.
|
|
|
|
use Locale::Messages qw (textdomain bindtextdomain gettext);
|
|
use POSIX qw(getpid);
|
|
|
|
binmode STDOUT, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8.
|
|
|
|
sub _ ($) { &gettext; }
|
|
|
|
textdomain "hello-perl";
|
|
bindtextdomain "hello-perl", "@localedir@";
|
|
|
|
print _"Hello, world!";
|
|
print "\n";
|
|
printf _"This program is running as process number %d.", getpid();
|
|
print "\n";
|