This is an automated email from the git hooks/post-receive script.

abe pushed a commit to branch master
in repository debsums.

commit 58f444b45a5c3f80fa40e9fd672788dc6f05c57a
Author: Axel Beckert <a...@deuxchevaux.org>
Date:   Sat Feb 7 01:27:38 2015 +0100

    Warn if found md5sums file is empty. (Closes: #577197)
---
 debian/changelog |  1 +
 debsums          | 14 +++++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index dab0f6b..330592b 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -21,6 +21,7 @@ debsums (2.1~dev) UNRELEASED; urgency=medium
   * debsums:
     + Apply patch by Vladimir N. Solovyov to also report modified files of
       arch-qualified (multiarch) packages. (Closes: #773136)
+    + Warn if found md5sums file is empty. (Closes: #577197)
     + Remove obsolete CVS keywords.
     + Quote HERE document delimiters to ease syntax highlighting and
       please perlcritic.
diff --git a/debsums b/debsums
index 3115f65..cd153aa 100755
--- a/debsums
+++ b/debsums
@@ -321,15 +321,23 @@ sub md5sums_path
     # so we cheat a little bit.
 
     my ($pack) = @_;
+    my $path = '';
     if (-e "$DPKG/info/$pack.list") {
-        return "$DPKG/info/$pack.md5sums";
+        $path = "$DPKG/info/$pack.md5sums";
     } elsif ($pack !~ /:/ and -e "$DPKG/info/$pack:$arch.list") {
-        return "$DPKG/info/$pack:$arch.md5sums";
+        $path = "$DPKG/info/$pack:$arch.md5sums";
     } elsif ($pack =~ /^(.*):/ and -e "$DPKG/info/$1.list") {
-        return "$DPKG/info/$1.md5sums";
+        $path = "$DPKG/info/$1.md5sums";
     } else {
         die "Cannot find md5sums path for $pack\n";
     }
+
+    if (-e $path and -z _) {
+        warn "$path is empty!\n";
+        $status |= 2;
+    }
+
+    return $path;
 }
 
 sub is_replaced

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/debsums.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to