On Thu, Aug 11, 2005 at 05:29:03AM +0200, Andreas Pakulat wrote:
> Package: debpool
> Version: 0.2.2
> Followup-For: Bug #317390
>
> Hi,
>
> I found the place where the problem eventually sits. It's line 396 in
> /usr/share/debpool/perl5/DebPool/Dirs.pm, the line reads:
>
> if ($section =~ m/$check_section\/.+/) {
>
> Now, I'm not absolutely sure what happens here, but when using a clean
> repository and having
>
> $Options{'sections'} = [ 'main', 'non-free'];
>
> This fails, i.e. somehow Perl find "non-free" not to be identical to
> "non-free", I guess because of the "\/.+" at the end of the Regexp. At
> the point where this match happens (from the Packages.pm Module) there
> is no complex section anymore (like non-free/web) but only the foremost
> part is visible here (Line 567 in Packages.pm). I guess debpool is
> removing the rest before reaching this point.
>
> I think the correct fix would be to change that line to read
>
> if ($section =~ m/($check_section|$check_section\/.+)/) {
>
> or if the second part (with the \/.+) is not used anymore it can be
> reduced to just $check_section.
Thanks for the additional information. Sorry things have been slow on the
Debian front for me, recently; my employer is heading into the potential
for a labor strike, and we've all been rather busy. I'll need to check on
whether $check_section having a trailing part at this stage in the code
is a "must", "must not", or "may"; you've covered the first two, if the
latter is actually what's up then it should probably be something like
'$check_section(\/.+)?'
In any case, I'll try to followup on this soon, if I don't end up being
away for several weeks...
--
Joel Aelwyn <[EMAIL PROTECTED]> ,''`.
: :' :
`. `'
`-
signature.asc
Description: Digital signature
