From c6fdae076c296fc717c33b6bb2fb84d586bbf125 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 13 Nov 2006 10:06:55 +0000
Subject: don't clean obsolete headers in cache if cache is empty

---
 urpm.pm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index e9e6e39e..c9470df5 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -1904,13 +1904,15 @@ sub remove_obsolete_headers_in_cache {
 	}
 	closedir $dh;
     }
-    $urpm->{log}(N("found %d headers in cache", scalar(keys %headers)));
-    foreach (@{$urpm->{depslist}}) {
-	delete $headers{$_->fullname};
-    }
-    $urpm->{log}(N("removing %d obsolete headers in cache", scalar(keys %headers)));
-    foreach (values %headers) {
-	unlink "$urpm->{cachedir}/headers/$_";
+    if (%headers) {
+	$urpm->{log}(N("found %d headers in cache", scalar(keys %headers)));
+	foreach (@{$urpm->{depslist}}) {
+	    delete $headers{$_->fullname};
+	}
+	$urpm->{log}(N("removing %d obsolete headers in cache", scalar(keys %headers)));
+	foreach (values %headers) {
+	    unlink "$urpm->{cachedir}/headers/$_";
+	}
     }
 }
 
-- 
cgit v1.2.1