summaryrefslogtreecommitdiffstats
path: root/move/move.pm
diff options
context:
space:
mode:
Diffstat (limited to 'move/move.pm')
-rw-r--r--move/move.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/move/move.pm b/move/move.pm
index b29a63ec3..d10e46822 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -8,7 +8,9 @@ use common;
use fs;
use run_program;
use log;
+use lang;
+my @ALLOWED_LANGS = qw(en_US fr es it de);
#- run very soon at stage2 start, setup things on tmpfs rw / that
#- were not necessary to start stage2 itself (there were setup
@@ -41,6 +43,8 @@ sub init {
run_program::run('/sbin/devfsd', '/dev');
modules::load_category('multimedia/sound');
+
+ member($_, @ALLOWED_LANGS) or delete $lang::langs{$_} foreach keys %lang::langs;
}