remove compprefix

[debbugs.git] / examples / debian / versions / build-versions-db

diff --git a/examples/debian/versions/build-versions-db b/examples/debian/versions/build-versions-db
index 16eb5369f2ba47c8aa4173caab73cf5f88a27760..db4668453878997e3c4b5e437ee1c5b9c1142fe8 100755 (executable)
--- a/examples/debian/versions/build-versions-db
+++ b/examples/debian/versions/build-versions-db
@@ -62,12 +62,9 @@ use Fcntl;
 my %options = (debug           => 0,
                help            => 0,
                man             => 0,
-               compprefix      => '',
               );
 
 GetOptions(\%options,
-           'hostname=s',
-           'compprefix=s',
            'debug|d+','help|h|?','man|m');
 
 pod2usage() if $options{help};
@@ -76,9 +73,6 @@ pod2usage({verbose=>2}) if $options{man};
 $DEBUG = $options{debug};
 
 my @USAGE_ERRORS;
-if (not defined $options{hostname}) {
-    push @USAGE_ERRORS,"You must provide a hostname";
-}
 
 if (not @ARGV >= 4) {
     push @USAGE_ERRORS,
@@ -157,7 +151,6 @@ for my $suite (@suites) {
        # debian-installer is really a section rather than a component
        # (ugh).
        (my $viscomponent = $component) =~ s[/.*][];
-       $viscomponent = $options{compprefix} . $viscomponent;
 
        my $sources = (grep { -f $_ } glob "$suitedir/$component/source/Sources.*")[0];
        next unless defined $sources;