From ad3bdacf5b5618285dddbf37ca926681e516beea Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 9 Mar 2004 09:53:50 +0000
Subject: misc perl_checker cleanups

---
 perl-install/standalone/draksplash | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install/standalone')

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
-- 
cgit v1.2.1