Package: dpkg-dev
Version: 1.13.19
Severity: minor
Tags: patch

I redirected the output of dpkg-scanpackages into a Packages file but a usage
error was produced, which I then didn't see.  This confused me, not to mention
apt-get.

$ dpkg-scanpackages > /dev/null
$ 

Patched version:

$ /tmp/dpkg-scanpackages > /dev/null
dpkg-scanpackages [-u] [-a<arch>] [-m] binarypath overridefile [pathprefix] > 
Packages

 Options:
 --udeb, -u scan for udebs
 --arch, -a architecture to scan for
 --multiversion, -m allow multiple versions of a single package
 --help, -h show this help

$

I'm no Perl wizard, so please do laugh at my patch.  I tried.

-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable'), (500, 'stable'), (1, 'experimental')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.16-1-686-smp
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)

Versions of packages dpkg-dev depends on:
ii  binutils             2.16.1cvs20060413-1 The GNU assembler, linker and bina
ii  cpio                 2.6-11              GNU cpio -- a program to manage ar
ii  dpkg                 1.13.18             package maintenance system for Deb
ii  make                 3.81-1              The GNU version of the "make" util
ii  patch                2.5.9-4             Apply a diff file to an original
ii  perl [perl5]         5.8.8-4             Larry Wall's Practical Extraction 
ii  perl-modules         5.8.8-4             Core Perl modules

Versions of packages dpkg-dev recommends:
ii  bzip2                         1.0.3-2    high-quality block-sorting file co
ii  gcc [c-compiler]              4:4.0.3-3  The GNU C compiler
ii  gcc-3.3 [c-compiler]          1:3.3.6-13 The GNU C compiler
ii  gcc-4.0 [c-compiler]          4.0.3-2    The GNU C compiler
ii  gcc-4.1 [c-compiler]          4.1.0-2    The GNU C compiler

-- no debconf information
--- /usr/bin/dpkg-scanpackages  2006-04-09 20:52:19.000000000 -0700
+++ /tmp/dpkg-scanpackages      2006-05-09 23:10:48.000000000 -0700
@@ -53,7 +53,7 @@
 
 my $result = 
GetOptions(\%options,'help|h|?','udeb|u!','arch|a=s','multiversion|m!');
 
-print <<END and exit 1 if not $result or $options{help} or @ARGV < 2;
+print(STDERR <<END) and exit 1 if not $result or $options{help} or @ARGV < 2;
 dpkg-scanpackages [-u] [-a<arch>] [-m] binarypath overridefile [pathprefix] > 
Packages
 
  Options:

Reply via email to