diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-26 16:51:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-26 16:51:29 +0000 |
| commit | 6990f9fecf2642e7a876717091968d4f7872562c (patch) | |
| tree | bc93714e92f823b34f974d039c618aafc31cf119 /perl-install | |
| parent | 0417a4a4862279d10d9b3d9dfd8a625cf780fdbb (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/Xconfigurator.pm | 6 |
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); |