blob: 9ea59f2a945ca7eeb6e859484f28f3a5aa9d4e46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- MyLinkI18N.pm 2003-11-28 14:35:50.000000000 +0000
+++ MyLinkI18N.pm.new 2003-11-28 14:33:27.000000000 +0000
@@ -7,13 +7,20 @@
our $DEFAULT_LANG = "en";
our %TEXTS = ();
-for(< MyLinkI18N-*.txt >) {
- my $lang = $_;
- $lang =~ s/^MyLinkI18N-([^.]+)\.txt$/$1/;
- $TEXTS{$lang} = { do $_ };
+
+
+
+
+opendir DIR,"GENTOO_DIR";
+map {
+ m!^MyLinkI18N-([^.]+).txt$!;
+ $TEXTS{$1} = { do "GENTOO_DIR/$_" };
die $@ if $@;
- warn "Got language definition file: $_\n";
-};
+ warn "Got language definition file: GENTOO_DIR/$_\n";
+} grep m!^MyLinkI18N-[^.]+\.txt$!, readdir DIR;
+closedir DIR;
+
+
1;
|
GitWeb
