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]
