summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/XFdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-19 12:37:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-19 12:37:22 +0000
commit9360e108248c60fc2142ca5ab5a76d62c835e86f (patch)
tree6c750d71805830a5c1c662e72c746290417d32dd /perl-install/standalone/XFdrake
parentd09ae43e4f8b2bee9239d9e0b078c25bc2ed689f (diff)
downloaddrakx-backup-do-not-use-9360e108248c60fc2142ca5ab5a76d62c835e86f.tar
drakx-backup-do-not-use-9360e108248c60fc2142ca5ab5a76d62c835e86f.tar.gz
drakx-backup-do-not-use-9360e108248c60fc2142ca5ab5a76d62c835e86f.tar.bz2
drakx-backup-do-not-use-9360e108248c60fc2142ca5ab5a76d62c835e86f.tar.xz
drakx-backup-do-not-use-9360e108248c60fc2142ca5ab5a76d62c835e86f.zip
rename $i in $X (to have the same as Xconfigurator.pm)
Diffstat (limited to 'perl-install/standalone/XFdrake')
-rwxr-xr-xperl-install/standalone/XFdrake12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake
index 5ef974b29..f6584fad8 100755
--- a/perl-install/standalone/XFdrake
+++ b/perl-install/standalone/XFdrake
@@ -33,7 +33,7 @@ local $_ = join '', @ARGV;
/-h/ and die "usage: XFdrake [--xf3] [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing]\n";
-my $i = {};
+my $X = {};
$::force_xf3 = /-xf3/;
$::beginner = /-beginner/;
@@ -41,7 +41,7 @@ $::expert = /-expert/;
$::auto = /-auto/;
$::noauto = /-noauto/;
$::testing = /-testing/;
-$i->{skiptest} = /-skiptest/;
+$X->{skiptest} = /-skiptest/;
my $in = 'interactive'->vnew('su', 'X');
@@ -51,13 +51,13 @@ my $f = "/usr/X11R6/lib/X11/rgb.txt"; #- this one is on all platform (instead of
$in->do_pkgs->install('XFree86', 'XFree86-75dpi-fonts') if !-e $f;
-e $f or die "install XFree86 first!\n";
-`pidof xfs` > 0 or system("/etc/rc.d/init.d/xfs start") if !$i->{skiptest};
+`pidof xfs` > 0 or system("/etc/rc.d/init.d/xfs start") if !$X->{skiptest};
system("mount /proc 2>/dev/null"); # ensure /proc is mounted for pci probing
begin:
-Xconfig::getinfo($i);
-Xconfig::getinfoFromXF86Config($i); #- take default from here at least.
+Xconfig::getinfo($X);
+Xconfig::getinfoFromXF86Config($X); #- take default from here at least.
my $allowNVIDIA_rpms;
{
@@ -93,7 +93,7 @@ my $allowNVIDIA_rpms;
}
$::isEmbedded and kill USR2, $::CCPID;
-Xconfigurator::main($i, $in, $in->do_pkgs,
+Xconfigurator::main($X, $in, $in->do_pkgs,
{ allowFB => $::expert,
allowNVIDIA_rpms => $allowNVIDIA_rpms });
!$::isEmbedded and $in->exit(0);