diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-09 09:53:50 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-09 09:53:50 +0000 |
| commit | ad3bdacf5b5618285dddbf37ca926681e516beea (patch) | |
| tree | c5de660d1f2111ff0ddf9445136de23694156a1f /perl-install/standalone/draksplash | |
| parent | 340ade42a3f8cf9f99914200ce543e62fb5faca5 (diff) | |
| download | drakx-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/standalone/draksplash')
| -rwxr-xr-x | perl-install/standalone/draksplash | 4 |
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 |