From ccb354df46579b55cfe8521cf30fbf007d69f933 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 13 Aug 2004 01:37:25 +0000
Subject: Concision, good (says perl_checker)

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 77540fa96..17e2ccb8e 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -449,7 +449,7 @@ sub psUsingHdlist {
 	    $synth = $o_fhdlist;
 	    $synth =~ s/hdlist/synthesis.hdlist/ or $synth = undef;
 	}
-	$synth = "media/media_info/synthesis.$hdlist" unless $synth;
+	$synth ||= "media/media_info/synthesis.$hdlist";
 	install_any::getAndSaveFile($synth, $newsf);
 	$m->{synthesis_hdlist_size} = -s $newsf; #- keep track of size for post-check.
 	-s $newsf > 0 or unlink $newsf;
-- 
cgit v1.2.1