From e04a641142dfa21cb03c19071c9306c0ad83afe1 Mon Sep 17 00:00:00 2001
From: Guy Maor <maor@debian.org>
Date: Fri, 29 Jan 1999 08:59:33 +0000
Subject: [PATCH] allow hierarchial sections

---
 scripts/dpkg-scanpackages.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scripts/dpkg-scanpackages.pl b/scripts/dpkg-scanpackages.pl
index ee82ebe1..7f5a6468 100755
--- 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 $!;
-- 
2.39.5