summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-11 12:08:49 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-11 12:08:49 +0000
commit3f2a86d98546f9824ce2f0ffc438b8adaf1e919a (patch)
tree62b9fac6d547b084740eaab3060272bd53ad7018 /perl-install/install_steps_gtk.pm
parent66acc9ca3c2c03404de8a2cb635d67f474e91e0a (diff)
downloaddrakx-3f2a86d98546f9824ce2f0ffc438b8adaf1e919a.tar
drakx-3f2a86d98546f9824ce2f0ffc438b8adaf1e919a.tar.gz
drakx-3f2a86d98546f9824ce2f0ffc438b8adaf1e919a.tar.bz2
drakx-3f2a86d98546f9824ce2f0ffc438b8adaf1e919a.tar.xz
drakx-3f2a86d98546f9824ce2f0ffc438b8adaf1e919a.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index dfb43f872..b7c53e730 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -98,9 +98,8 @@ sub new($$) {
foreach (@servers) {
log::l("Trying with server $_");
- sleep 3;
my $dir = "/usr/X11R6/bin";
- my $prog = /Xsun/ || /Xpmac/ ? $_ : "XF86_$_";
+ my $prog = /Xsun|Xpmac/ ? $_ : "XF86_$_";
unless (-x "$dir/$prog") {
unlink $_ foreach glob_("$dir/X*");
install_any::getAndSaveFile("$dir/$prog", "$dir/$prog") or die "failed to get server $prog: $!";