[pkg-perl-tools] 05/09: syntax.t: skip non-files in dpkg-query --listfiles output

[Niko Tyni]

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

ntyni pushed a commit to branch ntyni/autopkgtest
in repository pkg-perl-tools.

commit 00e564d4749e6452fd7ef7288db56aa3251065d7
Author: Niko Tyni <ntyni at debian.org>
Date:   Sat Dec 3 00:27:29 2016 +0200

    syntax.t: skip non-files in dpkg-query --listfiles output
    
    The list of files can contain things like
    
     package diverts others to: <destination>
    
    that we don't want to handle as a regular file.
---
 autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t b/autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t
index 5b20fde..a2f0abe 100755
--- a/autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t
+++ b/autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t
@@ -77,6 +77,7 @@ for my $package (@packages) {
 
         my @pms;
         F: for (@files) {
+            next if !m{^/}; # skip diversions
             chomp;
             next if !/\.pm$/;
             for my $skip_re (@to_skip) {

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