Skip to content
Snippets Groups Projects
Commit 5fc71276 authored by Eelco Dolstra's avatar Eelco Dolstra
Browse files

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

  override.
parent c190f051
No related branches found
No related tags found
No related merge requests found
......@@ -3,7 +3,7 @@
use strict;
my $keep = 0;
my $sourceroot = 0;
my $sourceroot = 1;
my $name = "current";
my $srcid;
......@@ -11,7 +11,7 @@ my $argnr = 0;
while ($argnr < scalar @ARGV) {
my $arg = $ARGV[$argnr++];
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 =~ /^\//) { $srcid = $arg; }
else { die "unknown argument `$arg'" };
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment