From 4e22dc5f07ae31f8800b3bfb054a734e6fec5adb Mon Sep 17 00:00:00 2001 From: Michael Schroeder Date: Fri, 20 Oct 2017 15:45:25 +0200 Subject: [PATCH] Also support uncompressed control.tar files in queryhdrmd5 Change-Id: I43dfa992421836aba20d48acde8519a382d39ecb --- Build/Deb.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/Build/Deb.pm b/Build/Deb.pm index 7584191..7955cf6 100644 --- a/Build/Deb.pm +++ b/Build/Deb.pm @@ -392,11 +392,10 @@ sub queryhdrmd5 { } } $data = substr($data, 8 + 60 + $len); - if (substr($data, 0, 16) ne 'control.tar.gz ' && - substr($data, 0, 16) ne 'control.tar.gz/ ' && - substr($data, 0, 16) ne 'control.tar.xz ' && - substr($data, 0, 16) ne 'control.tar.xz/ ') - { + my $controlname = substr($data, 0, 16); + if ($controlname ne 'control.tar.gz ' && $controlname ne 'control.tar.gz/ ' && + $controlname ne 'control.tar.xz ' && $controlname ne 'control.tar.xz/ ' && + $controlname ne 'control.tar ' && $controlname ne 'control.tar/ ') { warn("$bin: control.tar is not second ar entry\n"); close F; return undef; -- 2.7.4