From 4ac6ca1e8f4f7bb8056b0643d83fa46f05798307 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Wed, 23 Oct 2019 13:42:28 +0300
Subject: [PATCH] metagen.pm: workaround buggy metadata in .meta files

---
 lib/metagen.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/lib/metagen.pm b/lib/metagen.pm
index c44c389..e9d253c 100644
--- a/lib/metagen.pm
+++ b/lib/metagen.pm
@@ -13,6 +13,9 @@
 #                  repo, compressed size and uncompressed size
 # * MANIFEST.bz2 - list of files in each package
 
+# TODO: make metadata in atomic way
+# TODO: validate metadata
+
 package metagen;
 
 use warnings "all";
@@ -35,6 +38,7 @@ sub __pdate;        # generates current date in pretty format
 
 sub metagen($) {
 	my $dir = shift;
+# TODO: get dir from config!
 	my $c = loadConf();
 	$dir = $c->{metagen}->{$dir};
 
@@ -163,8 +167,19 @@ MD5 message digest                Filename
 				$buffer .= $_;
 			}
 
-			chomp $buffer;
 			close F;
+
+# we need exactly 1 \n at the end of the buffer
+			while ($buffer =~ /\n$/) {
+				chomp $buffer;
+			}
+
+			$buffer .= "\n";
+
+# also $buffer must not begin with \n
+			while ($buffer =~ /^\n/) {
+				substr($buffer, $buffer, 1, -1);
+			}
 		}
 	}