From 5887fcb36441918fa02423170b43d6cddca36661 Mon Sep 17 00:00:00 2001
From: Jimmy Berry <jberry@suse.com>
Date: Fri, 30 Jun 2017 00:03:26 -0500
Subject: [PATCH] CreatePackageDescr: do not append cache file as it never
 makes sense.

---
 CreatePackageDescr.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CreatePackageDescr.pm b/CreatePackageDescr.pm
index ac5bdeed..685ea322 100644
--- a/CreatePackageDescr.pm
+++ b/CreatePackageDescr.pm
@@ -161,7 +161,7 @@ sub package_snippet($) {
     $out .= "-Sug:\n";
 
     mkdir($cachedir);
-    open( C, '>>', $cachefile ) || die "can't open $cachefile";
+    open(C, '>', $cachefile) || die "can't open $cachefile";
     flock(C, LOCK_EX) or die "failed to lock $cachefile: $!\n";
     seek(C, 0, 0); truncate(C, 0);
     print C $out;