From dc891fc82eae5a3408e840589a736b23787e38c5 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 28 Apr 2004 07:46:19 +0000
Subject: Cleanup some perl warnings

---
 urpm.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index aa2b3ec6..2a476e4d 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -231,7 +231,8 @@ sub read_config {
     while (<MD5SUM>) {
 	my ($md5sum, $file) = /(\S*)\s+(.*)/;
 	foreach (@{$urpm->{media}}) {
-	    ($_->{synthesis} && "synthesis.").$_->{hdlist} eq $file and $_->{md5sum} = $md5sum, last;
+	    ($_->{synthesis} ? "synthesis." : "").$_->{hdlist} eq $file
+		and $_->{md5sum} = $md5sum, last;
 	}
     }
     close MD5SUM;
@@ -1575,8 +1576,8 @@ this could happen if you mounted manually the directory when creating the medium
 		    }
 		} else {
 		    #- the flag is no more necessary.
-		    delete $medium->{list};
-		    unlink "$urpm->{statedir}/$medium->{list}";
+		    delete $medium->{list}
+			and unlink "$urpm->{statedir}/$medium->{list}";
 		}
 	    }
 	}
-- 
cgit v1.2.1