summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/sample/simplecal/bin/simplecal.pl
diff options
context:
space:
mode:
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/sample/simplecal/bin/simplecal.pl')
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/sample/simplecal/bin/simplecal.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/sample/simplecal/bin/simplecal.pl b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/sample/simplecal/bin/simplecal.pl
index 23f7606d28..4b70e025fe 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/sample/simplecal/bin/simplecal.pl
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/sample/simplecal/bin/simplecal.pl
@@ -13,14 +13,14 @@ use Locale::Messages qw (LC_MESSAGES);
# Our script contains translatable messages. We have to assign
# it a text domain. Note that this is only needed here because the
# script *itself* contains translatable messages from the text domain
-# "org.imperia.simplecal".
-use Locale::TextDomain ('org.imperia.simplecal');
+# "com.cantanea.simplecal".
+use Locale::TextDomain ('com.cantanea.simplecal');
use vars qw ($VERSION);
$VERSION = '1.0';
# Set the locale according to the environment.
-setlocale (LC_MESSAGES, "");
+setlocale LC_MESSAGES, "";
# Print a greeting message. We want to be flexible with the package
# name, and so we will make this a placeholder.