#!/usr/bin/perl use warnings; use strict; use IO::Handle; use IO::File; my $version="1.13.25"; # This line modified by Makefile my $dpkglibdir="/usr/lib/dpkg"; # This line modified by Makefile ($0) = $0 =~ m:.*/(.+):; push(@INC,$dpkglibdir); require 'dpkg-gettext.pl'; textdomain("dpkg-dev"); my %kmap= (optional => 'suggests', recommended => 'recommends', class => 'priority', package_revision => 'revision', ); my @fieldpri= ('Package', 'Source', 'Version', 'Priority', 'Section', 'Essential', 'Maintainer', 'Pre-Depends', 'Depends', 'Recommends', 'Suggests', 'Conflicts', 'Provides', 'Replaces', 'Enhances', 'Architecture', 'Filename', 'Size', 'Installed-Size', 'MD5sum', 'Description', 'Origin', 'Bugs', 'Name', 'Author', 'Homepage', 'Website', 'Depiction', 'Icon' ); # This maps the fields into the proper case my %field_case; @field_case{map{lc($_)} @fieldpri} = @fieldpri; use Getopt::Long qw(:config bundling); my %options = (help => sub { &usage; exit 0; }, version => \&version, udeb => 0, arch => undef, multiversion => 0, ); my $result = GetOptions(\%options,'help|h|?','version','udeb|u!','arch|a=s','multiversion|m!'); sub version { printf _g("Debian %s version %s.\n"), $0, $version; exit; } sub usage { printf _g( "Usage: %s [