diff options
Diffstat (limited to 'move')
| -rwxr-xr-x | move/make_live | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/move/make_live b/move/make_live index 209fcb770..6beda13e5 100755 --- a/move/make_live +++ b/move/make_live @@ -4,7 +4,8 @@ use lib "../perl-install"; use common; use pkgs; -my @langs = map { /^../; $& } split /\s/, (cat_('move.pm') =~ /ALLOWED_LANGS = qw\((.*)\)/)[0]; +my @ALLOWED_LANGS = split(' ', first(cat_('move.pm') =~ /ALLOWED_LANGS = qw\((.*)\)/)); +my @langs = map { /^../; $& } @ALLOWED_LANGS; @ARGV <= 1 or die "usage: make_live [live_location=/tmp/live_tree]\n"; @@ -102,7 +103,7 @@ print "Making live in $::prefix directory.\n"; $ENV{HELP_BROWSER} = "kfmclient openProfile webbrowsing"; $ENV{BROWSER} = "kfmclient openProfile webbrowsing"; $ENV{DESKTOP} = "kde"; - foreach (@langs) { + foreach (@ALLOWED_LANGS) { $ENV{LC_ALL} = $_; run_program::rooted($::prefix, 'kbuildsycoca'); cp_af("$::prefix/tmp/kde-root/ksycoca", "$::prefix/usr/share/services/ksycoca-$_"); |