Get tag info from Tag: line in CVS output rather than relying upon client's CVS/Tag file.

Bug #343263 r=bear
This commit is contained in:
cls%seawood.org 2006-07-03 20:35:04 +00:00
Родитель ce543c3ed4
Коммит 4e5a5ea7dd
1 изменённых файлов: 2 добавлений и 8 удалений

Просмотреть файл

@ -141,14 +141,6 @@ sub process_args {
}
$repository =~ s:^$cvsroot/::;
$repository =~ s:^$envcvsroot/::;
if (!$flag_tagcmd) {
if (open(REP, "<CVS/Tag")) {
$repository_tag = <REP>;
chop($repository_tag);
close(REP);
}
}
}
sub get_loginfo {
@ -179,6 +171,8 @@ sub get_loginfo {
s/^[ \t\n]+//; # delete leading whitespace
s/[ \t\n]+$//; # delete trailing whitespace
if ($state != $STATE_LOG && /^Tag:/) { ($repository_tag = $_) =~ s/^Tag:\s*(\S+).*/$1/; }
if ($state == $STATE_CHANGED && !(/^Tag:/)) { push(@changed_files, split); }
if ($state == $STATE_ADDED && !(/^Tag:/)) { push(@added_files, split); }
if ($state == $STATE_REMOVED && !(/^Tag:/)) { push(@removed_files, split); }