diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-30 13:04:24 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-30 13:04:24 +0000 |
| commit | 4a71957735964f870a3fe4433a4c2a5a3e4d9366 (patch) | |
| tree | 1026c28ba855e578a64b95144a048a29fdf0549e /perl-install | |
| parent | 3d0f183b716749c0cbbef6e4498cc18aded62306 (diff) | |
| download | drakx-backup-do-not-use-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar drakx-backup-do-not-use-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar.gz drakx-backup-do-not-use-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar.bz2 drakx-backup-do-not-use-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar.xz drakx-backup-do-not-use-4a71957735964f870a3fe4433a4c2a5a3e4d9366.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 3a5ef5f86..e35606fa2 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -293,9 +293,9 @@ sub search_dir_font() { !@font_list && $interactive and display_error(N("could not find any font.\n")); } -sub search_dir_font_uninstall() { +sub search_dir_font_uninstall { + my ($fn) = @_; my @font_list_tmp; - my $fn = $_; if (-d $fn) { foreach my $i (all($fn)) { push @font_list_tmp, $i if is_a_font($i); @@ -323,18 +323,18 @@ sub print_list() { } sub dir_created() { - -e $drakfont_dir || mkdir_p($drakfont_dir); - -e $drakfont_dir . "/Type1" || mkdir_p($drakfont_dir . "/Type1"); - -e $drakfont_dir . "/ttf" || mkdir_p($drakfont_dir . "/ttf"); - -e $drakfont_dir . "/tmp" || mkdir_p($drakfont_dir . "/tmp"); - -e $drakfont_dir . "/tmp/ttf" || mkdir_p($drakfont_dir . "/tmp/ttf"); - -e $drakfont_dir . "/tmp/Type1" || mkdir_p($drakfont_dir . "/tmp/Type1"); - -e $drakfont_dir . "/tmp/tmp" || mkdir_p($drakfont_dir . "/tmp/tmp"); + -e $drakfont_dir or mkdir_p($drakfont_dir); + -e $drakfont_dir . "/Type1" or mkdir_p($drakfont_dir . "/Type1"); + -e $drakfont_dir . "/ttf" or mkdir_p($drakfont_dir . "/ttf"); + -e $drakfont_dir . "/tmp" or mkdir_p($drakfont_dir . "/tmp"); + -e $drakfont_dir . "/tmp/ttf" or mkdir_p($drakfont_dir . "/tmp/ttf"); + -e $drakfont_dir . "/tmp/Type1" or mkdir_p($drakfont_dir . "/tmp/Type1"); + -e $drakfont_dir . "/tmp/tmp" or mkdir_p($drakfont_dir . "/tmp/tmp"); } sub put_font_dir() { my @tmpl; - -e "/usr/share/ghostscript" or $gs = 0 && print "ghostscript is not installed on your system...\n"; + -e "/usr/share/ghostscript" or do { $gs = 0; print "ghostscript is not installed on your system...\n" }; if (@font_list) { dir_created(); foreach my $i (@font_list) { @@ -441,11 +441,11 @@ sub remove_gs_fonts() { sub remove_fonts() { my @list_dir; - -e $drakfont_dir . "/remove" || mkdir_p($drakfont_dir . "/remove"); + -e $drakfont_dir . "/remove" or mkdir_p($drakfont_dir . "/remove"); $interactive and progress($pbar, 1, N("done")); foreach my $i (@font_list) { - $_ = $i; + local $_ = $i; if (/.pfb$/ || /.gsf$/ || /.pfm$/ || /.pfa$/) { system("mv $_ $drakfont_dir/remove "); } @@ -484,8 +484,8 @@ sub license_msg() { } sub backend_mod() { - $xlsfonts && system("xlsfonts"); - $list_all_font_path && system($chkfontpath); + $xlsfonts and system("xlsfonts"); + $list_all_font_path and system($chkfontpath); if ($windows) { license_msg(); @@ -524,7 +524,7 @@ sub create_fontsel() { $central_widget = \$font_sel; } -sub display_error() { +sub display_error { my ($message) = @_; my $error_box; $$central_widget->destroy(); |