Commit 0d059bca authored by Leigh B. Stoller's avatar Leigh B. Stoller

Ack, fix last revision.

parent 96f928ec
......@@ -230,10 +230,10 @@ if ($action eq "commit") {
}
}
elsif ($action eq "tag") {
usage()
if (! @ARGV);
my $tag = $ARGV[0];
my $tag = "tag";
$tag = $ARGV[0]
if (@ARGV);
if (! TBcheck_dbslot($tag, "archive_tags", "tag",
TBDB_CHECKDBSLOT_WARN|TBDB_CHECKDBSLOT_ERROR)) {
......@@ -244,7 +244,7 @@ elsif ($action eq "tag") {
$tag = $1;
my $usertag = 0;
if (defined($options{"u"})) {
if (scalar(@ARGV) && defined($options{"u"})) {
$usertag = 1;
}
......
......@@ -210,10 +210,10 @@ if ($STAMPS) {
$parent_template->Stamp("template_create", "modified");
$template->Stamp("template_create", "creating",
undef, "parent_version", $parent_vers);
"parent_version", $parent_vers);
}
else {
$template->Stamp("template_create", "creating", undef, "new", 0);
$template->Stamp("template_create", "creating", "", 0);
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment