summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-26 16:51:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-26 16:51:29 +0000
commit6990f9fecf2642e7a876717091968d4f7872562c (patch)
treebc93714e92f823b34f974d039c618aafc31cf119 /perl-install/Xconfigurator.pm
parent0417a4a4862279d10d9b3d9dfd8a625cf780fdbb (diff)
downloaddrakx-6990f9fecf2642e7a876717091968d4f7872562c.tar
drakx-6990f9fecf2642e7a876717091968d4f7872562c.tar.gz
drakx-6990f9fecf2642e7a876717091968d4f7872562c.tar.bz2
drakx-6990f9fecf2642e7a876717091968d4f7872562c.tar.xz
drakx-6990f9fecf2642e7a876717091968d4f7872562c.zip
cleanup launching qiv (using run_program)
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 22864b6f5..5e6fb981e 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -639,8 +639,10 @@ sub testFinalConfig {
print F q{
require lang;
use interactive::gtk;
+ use run_program;
use my_gtk qw(:wrappers);
+ $::prefix = "} . $::$prefix . q{";
$::isStandalone = 1;
lang::bindtextdomain();
@@ -661,8 +663,8 @@ sub testFinalConfig {
my $background = "/usr/share/pixmaps/backgrounds/linux-mandrake/XFdrake-image-test.jpg";
my $qiv = "/usr/bin/qiv";
- -r "} . $::prefix . q{/$background" && -x "} . $::prefix . q{/$qiv" and
- system(($::testing ? "} . $::prefix . q{" : "chroot } . $::prefix . q{/ ") . "$qiv -y $background");
+ run_program::rooted($::prefix, $qiv, "-y", $background)
+ if -r "$::prefix/$background" && -x "$::prefix/$qiv";
my $in = interactive::gtk->new;
$in->exit($in->ask_yesorno('', [ _("Is this the correct setting?"), $text ], 0) ? 0 : 222);