Bug#245526: Support for udeb packages

[Free Ekanayaka]

Hi,

here is a very simple patch which adds support for .udeb packages.  It
works nicely here.

Cheers,

Free

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) = "${package}_.*_${arch}\\.u?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";



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