Here's a little modification that changes what's used in my($filepat) (fixes a different problem) and adds the debian-installer section by default.
diff -Naur debpool-0.2.2/share/DebPool/DB.pm debpool-0.2.2.udeb/share/DebPool/DB.pm --- debpool-0.2.2/share/DebPool/DB.pm 2005-02-23 19:02:38.000000000 +0100 +++ debpool-0.2.2.udeb/share/DebPool/DB.pm 2006-01-29 21:53:24.000000000 +0100 @@ -236,7 +236,7 @@ foreach $hashref (@files) { my($filename) = $hashref->{'Filename'}; - if ($filename =~ m/^([^_]+)_([^_]+)_.+\.deb/) { + if ($filename =~ m/^([^_]+)_([^_]+)_.+\.u?deb/) { my($package) = $1; my($version) = $2; diff -Naur debpool-0.2.2/share/DebPool/Dirs.pm debpool-0.2.2.udeb/share/DebPool/Dirs.pm --- debpool-0.2.2/share/DebPool/Dirs.pm 2005-02-21 21:39:01.000000000 +0100 +++ debpool-0.2.2.udeb/share/DebPool/Dirs.pm 2006-01-29 22:14:24.000000000 +0100 @@ -196,6 +196,7 @@ my($section); foreach $section (@{$Options{'sections'}}) { + next if $section =~ m/\s*\/debian-installer/; if (!Tree_Mkdir("$pool_dir/$section", $pool_dir_mode)) { return 0; } diff -Naur debpool-0.2.2/share/DebPool/Packages.pm debpool-0.2.2.udeb/share/DebPool/Packages.pm --- debpool-0.2.2/share/DebPool/Packages.pm 2005-02-23 18:47:39.000000000 +0100 +++ debpool-0.2.2.udeb/share/DebPool/Packages.pm 2006-01-29 22:04:21.000000000 +0100 @@ -717,6 +717,9 @@ } else { $component = 'main'; } + if ( $section eq 'debian-installer' ) { + $component .= '/debian-installer'; + } foreach $distribution (@{$distributions}) { Set_Versions($distribution, $pkg_name, $pkg_ver, @@ -984,7 +987,7 @@ # without the epoch" -- it is more or less arbitrary, as long # as it is a well-formed version number). - my($filepat) = "${package}_.*_${arch}\\.deb"; + my($filepat) = qr/^\Q${package}_\E.*\Q_${arch}.\Eu?deb/; $filepat =~ s/\+/\\\+/; my($section) = Guess_Section($changes_data); @@ -1120,7 +1123,8 @@ print $tmpfile_handle 'Architecture: '; print $tmpfile_handle join(' ', @{$dsc_data->{'Architecture'}}) . "\n"; - print $tmpfile_handle "Standards-Version: $dsc_data->{'Standards-Version'}\n"; + print $tmpfile_handle "Standards-Version: $dsc_data->{'Standards-Version'}\n" + if exists $dsc_data->{'Standards-Version'}; print $tmpfile_handle "Format: $dsc_data->{'Format'}\n"; print $tmpfile_handle "Directory: " . join('/', ('pool', PoolDir($source, $section), $source)) . "\n"; diff -Naur debpool-0.2.2/share/DebPool/Config.pm debpool-0.2.2.udeb/share/DebPool/Config.pm --- debpool-0.2.2/share/DebPool/Config.pm 2007-12-03 01:38:04.000000000 -0500 +++ debpool-0.2.2.udeb/share/DebPool/Config.pm 2007-12-03 02:26:20.000000000 -0500 @@ -590,7 +590,7 @@ =cut -$Options{'sections'} = [ 'main', 'contrib', 'non-free' ]; +$Options{'sections'} = [ 'main', 'contrib', 'non-free', 'debian-installer' ]; $OptionDefs{'sections'} = 'sections=s@'; =item B<archs> => I<array of architecture names> -- Regards, Andres Mejia -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]