[SCM] Debian package checker branch, master, updated. 2.5.6-91-g208d460

["Niels Thykier" <niels@thykier.net>]

The following commit has been merged in the master branch:
commit 208d460c3e60b18728fa881bb3bd8f89b70c3c12
Author: Niels Thykier <niels@thykier.net>
Date:   Thu Apr 12 23:02:21 2012 +0200

    c/changelog-file: Replace %is_a_symlink with $info->index
    
    Signed-off-by: Niels Thykier <niels@thykier.net>

diff --git a/checks/changelog-file b/checks/changelog-file
index 71bdbd6..06f2181 100644
--- a/checks/changelog-file
+++ b/checks/changelog-file
@@ -44,8 +44,6 @@ my $ppkg = quotemeta($pkg);
 my @doc_files;
 
 my %file_info;
-my %is_a_symlink;
-
 
 # skip packages which have a /usr/share/doc/$pkg -> foo symlink
 return 0 if $info->index->{"usr/share/doc/$pkg"} and
@@ -59,7 +57,6 @@ for my $file (@{$info->sorted_index}) {
     $file_info{$file} = $info->file_info->{$file};
 
     if ($file_info{$file} =~ m/^(?:broken )?symbolic link to (.*)/) {
-        $is_a_symlink{$file} = 1;
         # Figure out the link destination.  This algorithm is
         # not perfect but should be good enough.  (If it fails,
         # all that happens is that an evil symlink causes a bogus warning).
@@ -121,7 +118,7 @@ foreach (@{$info->sorted_index}) {
                 }
             }
             if (not $max_compressed and $file_info{$file1} =~ m/gzip compressed/) {
-                unless ($is_a_symlink{$file1}) {
+                if ($info->index->{$file1}->{type} ne 'l') {
                     tag 'changelog-not-compressed-with-max-compression', $file;
                 }
             }

-- 
Debian package checker