r767: This commit was manufactured by cvs2svn to create tag

[debhelper.git] / Dh_Getopt.pm

diff --git a/Dh_Getopt.pm b/Dh_Getopt.pm
index 1592d5d020fa09d7adee1703d4996b33bd7fbd51..0c28500d6dfc069b9e40ebbc7dd949f0fd2707d2 100644 (file)
--- a/Dh_Getopt.pm
+++ b/Dh_Getopt.pm
@@ -84,6 +84,7 @@ sub parseopts {
        
                "d" => \$options{D_FLAG},
                "remove-d" => \$options{D_FLAG},
+               "dirs-only" => \$options{D_FLAG},
        
                "r" => \$options{R_FLAG},
                "no-restart-on-upgrade" => \$options{R_FLAG},
@@ -111,6 +112,10 @@ sub parseopts {
                "no-act" => \$options{NO_ACT},
        
                "init-script=s" => \$options{INIT_SCRIPT},
+               
+               "sourcedir=s" => \$options{SOURCEDIR},
+               
+               "destdir=s" => \$options{DESTDIR},
        );
 
        if (!$ret) {
@@ -145,6 +150,13 @@ sub parseopts {
        }
        @{$options{DOPACKAGES}}=@package_list;
 
+       # Generate EXCLUDE_FIND.
+       $options{EXCLUDE_FIND}='';
+       foreach (@{$options{EXCLUDE}}) {
+               $options{EXCLUDE_FIND}.="-regex .*".quotemeta($_).".* -or ";
+       }
+       $options{EXCLUDE_FIND}=~s/ -or $//;
+
        # If there are no packages to act on now, it's an error.
        if (! defined $options{DOPACKAGES} || ! @{$options{DOPACKAGES}}) {
                error("I have no package to build");