From 7b326b8fb9f487c37a746859f471d97eb6b8318c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 9 Mar 2004 10:01:33 +0000 Subject: fix boot_conf_path usage --- perl-install/standalone/draksplash | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index e4710330a..3101128fd 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -210,10 +210,10 @@ sub write_boot_thm { &set_thm_values; my $logo = $boot_conf_frame{widgets}{check}{logo}->get_active ? 'yes' : 'no'; my $quiet = $boot_conf_frame{widgets}{check}{quiet}->get_active ? 'yes' : 'no'; - my $globalconf_file = boot_conf_path.$theme{name}.'/global.config'; - my $cfg_file = boot_conf_path . $theme{name} . "$cfg_path/bootsplash-" . $theme{res}{res} . '.cfg'; + my $globalconf_file = $boot_conf_path.$theme{name}.'/global.config'; + my $cfg_file = $boot_conf_path . $theme{name} . "$cfg_path/bootsplash-" . $theme{res}{res} . '.cfg'; #- verify all dir exists or create them - foreach my $dir (boot_conf_path . $theme{name} . $cfg_path, $thm_path.$theme{name} . '/images/') { + foreach my $dir ($boot_conf_path . $theme{name} . $cfg_path, $thm_path.$theme{name} . '/images/') { mkdir_p($dir) if !-d $dir; } #- copy image to dest by convert @@ -275,7 +275,7 @@ sub get_this_thm_res_conf() { } sub read_boot_conf { - chdir(boot_conf_path); + chdir($boot_conf_path); my $line; if (-f $theme{name} . "/$cfg_path/bootsplash-" . $theme{res}{res} . '.cfg') { local *CFG; -- cgit v1.2.1