r1596: * Remove duplicate packages from DOPACKAGES after argument processing.

[debhelper.git] / Debian / Debhelper / Dh_Getopt.pm

diff --git a/Debian/Debhelper/Dh_Getopt.pm b/Debian/Debhelper/Dh_Getopt.pm
index 79674144a95a04021ff63fa309a54a8bce4a63cb..364187a12b9b440b97695fbb86abfef45f120cd3 100644 (file)
--- a/Debian/Debhelper/Dh_Getopt.pm
+++ b/Debian/Debhelper/Dh_Getopt.pm
@@ -19,7 +19,7 @@ my (%options, %exclude_package);
 sub showhelp {
        my $prog=basename($0);
        print "Usage: $prog [options]\n\n";
-       print "  $prog is a part of debhelper. See debhelper(1)\n";
+       print "  $prog is a part of debhelper. See debhelper(7)\n";
        print "  and $prog(1) for complete usage instructions.\n"; 
        exit(1);
 }
@@ -101,6 +101,7 @@ sub parseopts {
        
                "r" => \$options{R_FLAG},
                "no-restart-on-upgrade" => \$options{R_FLAG},
+               "no-start" => \$options{NO_START},
        
                "k" => \$options{K_FLAG},
                "keep" => \$options{K_FLAG},
@@ -146,6 +147,10 @@ sub parseopts {
 
                "list-missing" => \$options{LIST_MISSING},
                
+               "L|libpackage=s" => \$options{LIBPACKAGE},
+               
+               "name=s" => \$options{NAME},
+               
                "<>" => \&NonOption,
        );
 
@@ -170,13 +175,19 @@ sub parseopts {
                }
                push @{$options{DOPACKAGES}},GetPackages();
        }
-       
+
        # Remove excluded packages from the list of packages to act on.
+       # Also unique the list, in case some options were specified that
+       # added a package to it twice.
        my @package_list;
        my $package;
+       my %packages_seen;
        foreach $package (@{$options{DOPACKAGES}}) {
                if (! $exclude_package{$package}) {
-                       push @package_list, $package;   
+                       if (! exists $packages_seen{$package}) {
+                               $packages_seen{$package}=1;
+                               push @package_list, $package;   
+                       }
                }
        }
        @{$options{DOPACKAGES}}=@package_list;