summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-09 09:53:50 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-09 09:53:50 +0000
commitad3bdacf5b5618285dddbf37ca926681e516beea (patch)
treec5de660d1f2111ff0ddf9445136de23694156a1f /perl-install
parent340ade42a3f8cf9f99914200ce543e62fb5faca5 (diff)
downloaddrakx-ad3bdacf5b5618285dddbf37ca926681e516beea.tar
drakx-ad3bdacf5b5618285dddbf37ca926681e516beea.tar.gz
drakx-ad3bdacf5b5618285dddbf37ca926681e516beea.tar.bz2
drakx-ad3bdacf5b5618285dddbf37ca926681e516beea.tar.xz
drakx-ad3bdacf5b5618285dddbf37ca926681e516beea.zip
misc perl_checker cleanups
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksplash4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index ce89f3d9b..782b71e7f 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -216,7 +216,7 @@ sub write_boot_thm {
#- verify all dir exists or create them
-d $thm_conf_path.$theme{name}
or mkdir($thm_conf_path.$theme{name});
- mkdir($thm_conf_path.$theme{name} . $cfg_path) if !-d $thm_conf_path.$theme{name} . "/$cfg_path";
+ mkdir($thm_conf_path.$theme{name} . $cfg_path) if !-d ($thm_conf_path.$theme{name} . $cfg_path);
-d $thm_path.$theme{name}
or mkdir($thm_path.$theme{name});
-d $thm_path.$theme{name}.'/images/'
@@ -374,8 +374,6 @@ sub mk_frame {
my @buttons;
my $u = create_packtable({ col_spacings => 10, row_spacings => 5 },
map {
- my $pos = $_;
- my $key = $1 if $pos =~ m/^(\w+)(\s+)?(\w+)?$/;
my @widgets;
#- look for label