diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-28 20:06:03 -0400 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-01-02 14:59:46 +0100 |
commit | dbffe9ba6422dc533b832bf4eecc9e2e67962e14 (patch) | |
tree | 3c3104df873d411916c2667b4a448de9c3594703 | |
parent | 8fd98899b919f93190ab2e0a911dc2748bf47127 (diff) | |
download | drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar.gz drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar.bz2 drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.tar.xz drakx-dbffe9ba6422dc533b832bf4eecc9e2e67962e14.zip |
do not fork useless shells
-rwxr-xr-x | perl-install/standalone/drakfont | 6 |
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")); } |