summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksplash
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/draksplash')
-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