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

abe pushed a commit to branch master
in repository debsums.

commit ea7926bcbf980052691eb3c5517f7e2066aa6411
Author: Axel Beckert <a...@deuxchevaux.org>
Date:   Sat Jan 21 19:53:37 2017 +0100

    Slightly refactor check() to make coding style more consistent
    
    Also add some comments.
---
 debian/changelog |  3 +++
 debsums          | 36 +++++++++++++++---------------------
 2 files changed, 18 insertions(+), 21 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 181c646..dd45d7a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -8,6 +8,9 @@ debsums (2.2) UNRELEASED; urgency=medium
   * Add a flag to report the expected and actual checksums of files
     checked. (Closes: #660051)
 
+  [ Axel Beckert ]
+  * Slightly refactor check() to make coding style more consistent.
+
  -- Axel Beckert <a...@debian.org>  Sat, 21 Jan 2017 17:59:58 +0100
 
 debsums (2.1.3) unstable; urgency=medium
diff --git a/debsums b/debsums
index 82cb1ac..faee262 100755
--- a/debsums
+++ b/debsums
@@ -489,8 +489,7 @@ sub resolve_path {
             }
         }
 
-        unless (-f F)
-        {
+        unless (-f F) {
             warn "$self: can't check $pack file $root/$path ",
                 "(not a regular file)\n";
 
@@ -507,8 +506,7 @@ sub resolve_path {
 
         close F;
 
-        if ($@)
-        {
+        if ($@) {
             $@ =~ s/ at \S+ line.*\n//;
             warn "$self: can't check $pack file $root/$path ($@)\n";
             return 2;
@@ -516,8 +514,7 @@ sub resolve_path {
 
         my $s = $digest->hexdigest;
 
-        if ($s ne $sum and $prelink and $magic eq ELF_MAGIC)
-        {
+        if ($s ne $sum and $prelink and $magic eq ELF_MAGIC) {
             if (open P, '-|', $prelink, '--verify', '--md5', "$root/$path")
             {
                 my ($prelink_s) = map /^([\da-f]{32})\s/, <P>;
@@ -526,14 +523,14 @@ sub resolve_path {
             }
         }
 
-        if ($s eq $sum)
-        {
+        # Good cases
+
+        if ($s eq $sum) {
             printf "%-*s OK\n", $width, "$root/$path" unless ($silent || 
$report);
             return 0;
         }
 
-        if (is_replaced $pack, $path, $s)
-        {
+        if (is_replaced $pack, $path, $s) {
             printf "%-*s REPLACED\n", $width - 6, "$root/$path" unless 
($silent || $report);
             return 0;
         }
@@ -546,27 +543,24 @@ sub resolve_path {
             return 0;
         }
 
-        if ($changed)
-        {
-            print $root, "/", $path, "\n";
+        # Bad cases
+
+        if ($changed) {
+            print "$root/$path\n";
             return 2;
         }
 
-        if ($report)
-        {
+        if ($report) {
             warn "$self: changed file $root/$path (observed:$s expected:$sum) 
(from $pack package)\n";
             return 2;
         }
 
-        if ($silent)
-        {
+        if ($silent) {
             warn "$self: changed file $root/$path (from $pack package)\n";
-        }
-        else
-        {
-            printf "%-*s FAILED\n", $width - 4, "$root/$path";
+            return 2;
         }
 
+        printf "%-*s FAILED\n", $width - 4, "$root/$path";
         return 2;
     }
 }

-- 
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