summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xmove/make_live5
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-$_");