summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-28 20:06:03 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-01-02 14:59:46 +0100
commitdbffe9ba6422dc533b832bf4eecc9e2e67962e14 (patch)
tree3c3104df873d411916c2667b4a448de9c3594703 /perl-install
parent8fd98899b919f93190ab2e0a911dc2748bf47127 (diff)
downloaddrakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar
drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar.gz
drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar.bz2
drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar.xz
drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.zip
do not fork useless shells
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index cebb1156b..5756bffd6 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -176,7 +176,7 @@ sub list_fontpath() {
sub chk_empty_xfs_path() {
foreach my $tmp_path (@installed_fonts_path) {
if (every { /^fonts/ || /^type/ } all($tmp_path)) {
- system("$chkfontpath -r $tmp_path ")
+ system($chkfontpath, '-r', $tmp_path)
or print "PERL::system command failed during chkfontpath\n";
}
}
@@ -380,7 +380,7 @@ sub put_font_dir() {
interactive_progress($pbar2, 1, N("done"));
interactive_progress($pbar3, 0.25, N("Suppress Temporary Files"));
my_rm_rf("$drakfont_dir/tmp/") if !$::testing;
- system('xset fp rehash');
+ system(qw(xset fp rehash));
interactive_progress($pbar3, 0.30, N("done"));
}
}
@@ -431,7 +431,7 @@ sub remove_fonts() {
system("cd $i && type1inst") or print "PERL::system command failed during cd or type1inst\n";
interactive_progress($pbar2, 1 / @list_dir, N("Suppress Fonts Files"));
}
- system('xset fp rehash');
+ system(qw(xset fp rehash));
-e "/usr/share/ghostscript" and my_rm_rf("$drakfont_dir/remove") if !$::testing;
interactive_progress($pbar2, 0.01, N("done"));
}