summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:04:24 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:04:24 +0000
commit4a71957735964f870a3fe4433a4c2a5a3e4d9366 (patch)
tree1026c28ba855e578a64b95144a048a29fdf0549e /perl-install/standalone
parent3d0f183b716749c0cbbef6e4498cc18aded62306 (diff)
downloaddrakx-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar
drakx-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar.gz
drakx-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar.bz2
drakx-4a71957735964f870a3fe4433a4c2a5a3e4d9366.tar.xz
drakx-4a71957735964f870a3fe4433a4c2a5a3e4d9366.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont30
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();