From 487106ce7ab5febf2fb6e755486bc98b8be3cbf1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dag-Erling=20Sm=C3=B8rgrav?= <des@FreeBSD.org>
Date: Wed, 12 Feb 2003 09:13:36 +0000
Subject: [PATCH] Make "CURRENT" the default branch, and special-case it in the
 update code so it results in -A rather than -rCURRENT.

---
 tools/tools/tinderbox/tinderbox.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/tools/tinderbox/tinderbox.pl b/tools/tools/tinderbox/tinderbox.pl
index 8716854061b..859cd566e47 100644
--- a/tools/tools/tinderbox/tinderbox.pl
+++ b/tools/tools/tinderbox/tinderbox.pl
@@ -265,7 +265,7 @@ MAIN:{
     # Set defaults
     $arch = `/usr/bin/uname -m`;
     chomp($arch);
-    $branch = "HEAD";
+    $branch = "CURRENT";
     $jobs = 0;
     $repository = "/home/ncvs";
     $sandbox = "$ENV{'HOME'}/tinderbox";
@@ -376,7 +376,7 @@ MAIN:{
 	} else {
 	    push(@cvsargs, "checkout", "-P");
 	};
-	push(@cvsargs, "-r$branch")
+	push(@cvsargs, ($branch eq 'CURRENT') ? "-A" : "-r$branch")
 	    if defined($branch);
 	push(@cvsargs, "-D$date")
 	    if defined($date);