summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/remove-unused-packages
blob: bc54c3e1ca3c093e1ad5c3fd5274664d3ad03c52 (plain)
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);
use pkgs;
use interactive;
use do_pkgs;
use standalone;

my $in = interactive->vnew('su');
my $do_pkgs = do_pkgs::do_pkgs($in);
pkgs::remove_unused_packages($in, $do_pkgs);
='/software/drakx/commit/perl-install?h=16.78&id=8251c154b88d4c32bcb96cf80e8cd4bcf526a24b'>8251c154b88d4c32bcb96cf80e8cd4bcf526a24b (patch) tree757b0a859fb6c80d774867a1512c367fea33d0c3 /perl-install parent8d58db1534e63417aca9322fe5917d613926a2f2 (diff)downloaddrakx-8251c154b88d4c32bcb96cf80e8cd4bcf526a24b.tar
drakx-8251c154b88d4c32bcb96cf80e8cd4bcf526a24b.tar.gz
drakx-8251c154b88d4c32bcb96cf80e8cd4bcf526a24b.tar.bz2
drakx-8251c154b88d4c32bcb96cf80e8cd4bcf526a24b.tar.xz
drakx-8251c154b88d4c32bcb96cf80e8cd4bcf526a24b.zip
workaround kde control center calling localedrake with an empty kde lang
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/localedrake3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/localedrake b/perl-install/standalone/localedrake
index ef72f498e..499fa6350 100644
--- a/perl-install/standalone/localedrake
+++ b/perl-install/standalone/localedrake
@@ -15,7 +15,8 @@ foreach (@ARGV) {
$klang = $1 if /--kde_lang=(.*)/;
$country = $1 if /--kde_country=(.*)/;
}
-if ($klang) {
+if (defined $klang) {
+ $klang or exit;
my $lang = lang::kde_lang_country2lang($klang, $country);
lang::write('', $lang, $>, 'dont_touch_kde_files') if $apply;