From 12b898220c2230db5c61e059d2fe8a36a021f6b7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Mar 2005 15:46:50 +0000
Subject: clean-up

---
 perl-install/standalone/keyboarddrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/keyboarddrake')

diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index 9b1356056..f27a9e0a0 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -11,13 +11,13 @@ use common;
 use any;
 use c;
 
-$ugtk2::wm_icon = "/usr/share/mcc/themes/default/keyboard-mdk.png";
 my $in;
 my $keyboard = keyboard::read();
 if (my ($kb) = grep { !/^-/ } @ARGV) {
     keyboard::KEYBOARD2text($kb) or die "bad keyboard $kb\n";
     $keyboard->{KEYBOARD} = $kb;
 } else {
+    $ugtk2::wm_icon = "/usr/share/mcc/themes/default/keyboard-mdk.png";
     $in = 'interactive'->vnew('su');
 
     my ($xkb_models, $model2text) = keyboard::xkb_models();
-- 
cgit v1.2.1