From bd97b63b834c5422e0634a98ea8b9c7a0773b53f Mon Sep 17 00:00:00 2001
From: Michael Schroeder <mls@suse.de>
Date: Tue, 7 Oct 2014 11:40:30 +0200
Subject: [PATCH] [backend] throw out identical appdata entries

Thanks again DimStar.
---
 src/backend/bs_publish | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/backend/bs_publish b/src/backend/bs_publish
index 7753075b5bf..663d79be322 100755
--- a/src/backend/bs_publish
+++ b/src/backend/bs_publish
@@ -1343,6 +1343,7 @@ sub publish {
 
   my $appdatas;
   my $appdatas_state;
+  my %appdatas_seen;
 
   my %deltas;	# XXX remove hack
   my %deltainfos;
@@ -1389,7 +1390,10 @@ sub publish {
       if ($bin =~ /-appdata.xml$/) {
         # collect application data
         my $appdataxml = readstr("$r/$bin", 1) || '';
-	$appdatas_state .= Digest::MD5::md5_hex($appdataxml);
+	my $appdatamd5 = Digest::MD5::md5_hex($appdataxml);
+	next if $appdatas_seen{$appdatamd5};
+	$appdatas_seen{$appdatamd5} = 1;
+	$appdatas_state .= $appdatamd5;
 	my $appdata;
 	eval {
 	  $appdata = XML::Simple::XMLin($appdataxml, 'ForceArray' => 1);