#!/usr/bin/perl # GPL copyright 2001 by Joey Hess use strict; use warnings; use Getopt::Long; use Dpkg; use Dpkg::Gettext; use Dpkg::ErrorHandling qw(error); use Dpkg::Arch qw(get_host_arch); use Dpkg::Deps; use Dpkg::Control; textdomain("dpkg-dev"); sub usage { printf _g( "Usage: %s [