defvalopt '--distro', '-d', '.+', \$idistro;
defvalopt '--existing-package','', '.*', \$existing_package;
defvalopt '--build-products-dir','','.*', \$buildproductsdir;
+defvalopt '--clean', '', $cleanmode_re, \$cleanmode;
defvalopt '--initiator-tempdir','','.*', sub {
($initiator_tempdir) = (@_);
($om = $opts_opt_map{$1})) {
push @ropts, $_;
push @$om, $2;
- } elsif (m/^--clean=($cleanmode_re)$/os) {
- push @ropts, $_;
- $cleanmode = $1;
- } elsif (m/^--clean=(.*)$/s) {
- badusage "unknown cleaning mode \`$1'";
} elsif (m/^--quilt=($quilt_modes_re)$/s) {
push @ropts, $_;
$quilt_mode = $1;