* Keep sources (derivation expression) by default, `--no-source' to

override.
This commit is contained in:
Eelco Dolstra 2003-10-15 10:34:50 +00:00
parent c190f051ac
commit 5fc7127643

View File

@ -3,7 +3,7 @@
use strict; use strict;
my $keep = 0; my $keep = 0;
my $sourceroot = 0; my $sourceroot = 1;
my $name = "current"; my $name = "current";
my $srcid; my $srcid;
@ -11,7 +11,7 @@ my $argnr = 0;
while ($argnr < scalar @ARGV) { while ($argnr < scalar @ARGV) {
my $arg = $ARGV[$argnr++]; my $arg = $ARGV[$argnr++];
if ($arg eq "--keep") { $keep = 1; } if ($arg eq "--keep") { $keep = 1; }
elsif ($arg eq "--source-root") { $sourceroot = 1; } elsif ($arg eq "--no-source") { $sourceroot = 0; }
elsif ($arg eq "--name") { $name = $ARGV[$argnr++]; } elsif ($arg eq "--name") { $name = $ARGV[$argnr++]; }
elsif ($arg =~ /^\//) { $srcid = $arg; } elsif ($arg =~ /^\//) { $srcid = $arg; }
else { die "unknown argument `$arg'" }; else { die "unknown argument `$arg'" };