Package: devscripts
Version: 2.10.2
Severity: normal
Tags: patch

$ debc libarchive-dev_2.0.25-2.1_amd64.deb
debc: no appropriate .debs found in the changes file
libarchive_2.0.25-2.1_amd64.changes!

$ grep libarchive-dev_2.0.25-2.1_amd64.deb
../libarchive_2.0.25-2.1_amd64.changes
 7e23d344bf919de99fa7f4b809d15235 112206 libdevel optional
 libarchive-dev_2.0.25-2.1_amd64.deb

In scripts/debi.pl, (line 341) $pkg is set to the match value $1 
but the previous match operation was to determine the $arch, not 
the $deb. Changing $1 to $deb fixes the problem:

$ debc libarchive-dev_2.0.25-2.1_amd64.deb
libarchive-dev_2.0.25-2.1_amd64.deb
-----------------------------------
 new debian package, version 2.0.
 size 112206 bytes: control archive= 1283 bytes.
    1274 bytes,    30 lines      control
     889 bytes,    13 lines      md5sums

Trivial patch attached.

-- System Information:
Debian Release: lenny/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.18-4-amd64 (SMP w/1 CPU core)
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages devscripts depends on:
ii  debianutils                   2.18       Miscellaneous utilities specific t
ii  dpkg-dev                      1.13.25    package building tools for Debian
ii  libc6                         2.5-2      GNU C Library: Shared libraries
ii  perl                          5.8.8-7    Larry Wall's Practical Extraction 
ii  sed                           4.1.5-1    The GNU sed stream editor

Versions of packages devscripts recommends:
ii  fakeroot                      1.7        Gives a fake root environment

-- no debconf information
--- scripts/debi.pl.orig        2007-04-16 01:26:01.000000000 +0100
+++ scripts/debi.pl     2007-04-16 01:26:12.000000000 +0100
@@ -341,7 +341,7 @@
         $deb =~ /^([a-z0-9+\.-]+)_/ or warn "unrecognised .deb name: $deb\n";
        # don't want other archs' .debs:
        next unless $deb =~ /[_+]($arch|all)[\.+]/;
-        my $pkg = $1;
+        my $pkg = $deb;
         if (@ARGV) {
             if (exists $pkgs{$pkg}) {
                 push @debs, $deb;

Reply via email to