($sectioncut = $section) =~ s:^[^/]*/::;
if (length($psubdir{$p}) && $section ne $psubdir{$p} &&
$sectioncut ne $psubdir{$p}) {
- if (length($psubdir{$p}) && $section 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 $!;
+ " but file is in \`$psubdir{$p}' !!\n") || die $!;
$ouches++;
+ }
}
$o1{$p}= 1;
}