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.

HTH

Andreas

-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (990, 'unstable'), (500, 'experimental')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.12-cherry+noradeon+8139c+
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)

Versions of packages debpool depends on:
ii  perl                          5.8.7-4    Larry Wall's Practical Extraction 

Versions of packages debpool recommends:
ii  gnupg                         1.4.1-1    GNU privacy guard - a free PGP rep
ii  libdigest-sha1-perl           2.10-1     NIST SHA-1 message digest algorith
pn  libproc-daemon-perl           <none>     (no description available)
ii  perl [libdigest-md5-perl]     5.8.7-4    Larry Wall's Practical Extraction 

-- no debconf information


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to