From bbb898ebb72bf81ad27f593f4ffb627571847eec Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 8 Mar 2004 09:04:23 +0000
Subject: (which_res_exist) unjonathan-ize

---
 perl-install/standalone/draksplash | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index d43080708..6686f8cde 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -310,11 +310,10 @@ sub which_res_exist() {
 	chdir($thm_path.$theme{name}."/images/");
 	my $is_ok = 0;
 	foreach (@{$first{widget}{combo}{res}}) {
-		 -f "bootsplash-$_.jpg"
-		   and $is_ok = 1
-		   and $first{widgets}{combo}{res}->entry->set_text($_)
-		   and last;
-		
+         next if !-f "bootsplash-$_.jpg";
+         $is_ok = 1;
+         $first{widgets}{combo}{res}->entry->set_text($_);
+         last;
 	}
 	$is_ok == 1 or $in->ask_warn(N("Notice"), N("This theme does not yet have a bootsplash in %s !", $theme{res}{res})) and return 0;
 	return 1;
-- 
cgit v1.2.1