allow hierarchial sections

diff --git a/scripts/dpkg-scanpackages.pl b/scripts/dpkg-scanpackages.pl
index ee82ebe13f021c23210e7b8fb8149ac58d75da1d..7f5a646852f7ffd087d5de777a229ba15a28f3cd 100755 (executable)
--- a/scripts/dpkg-scanpackages.pl
+++ b/scripts/dpkg-scanpackages.pl
@@ -145,6 +145,9 @@ while (<O>) {
     }
     $pv{$p,'Priority'}= $priority;
     $pv{$p,'Section'}= $section;
+    ($sectioncut = $section) =~ s:^[^/]*/::;
+    if (length($psubdir{$p}) && $section ne $psubdir{$p} &&
+       $sectioncut ne $psubdir{$p}) {
     if (length($psubdir{$p}) && $section ne $psubdir{$p}) {
         print(STDERR " !! Package $p has \`Section: $section',".
                      " but file is in \`$psubdir{$p}' !!\n") || die $!;