From c4be57be8af9d437234a88f7c542647c03f3641c Mon Sep 17 00:00:00 2001
From: Stefan Siegel <siegel@linux-mandrake.com>
Date: Tue, 10 Apr 2001 10:04:55 +0000
Subject: i18n fixes

---
 clock.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'clock.pm')

diff --git a/clock.pm b/clock.pm
index 58ec25d4..1f0481a8 100755
--- a/clock.pm
+++ b/clock.pm
@@ -10,6 +10,17 @@ use timezone;
 use Data::Dumper;
 init Gtk;
 #use strict;
+use Locale::GetText;
+
+setlocale (LC_ALL, "");
+Locale::GetText::textdomain ("DrakConf");
+import Locale::GetText I_;
+sub _ {
+    my $s = shift @_; my $t = I_($s);
+    $t && ref $t or return sprintf $t, @_;
+    my ($T, @p) = @$t;
+    sprintf $T, @_[@p];
+}
 
 $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
 my $in = vnew interactive('su');
-- 
cgit v1.2.1