cvslog's mark expects a revision, not typical mark input

Bug #344637 r=bear
This commit is contained in:
cls%seawood.org 2006-07-14 14:47:21 +00:00
Родитель 9ecdbc9477
Коммит 68fdcd7e9b
1 изменённых файлов: 4 добавлений и 3 удалений

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

@ -147,12 +147,13 @@ if ($browse_revtag eq 'HEAD') {
$start_rev = map_tag_to_revision($browse_revtag);
}
# Handle the "mark" argument
# Handle the "mark" argument, which expects a revision
#
my %mark;
my $mark_arg = &SanitizeMark($::FORM{'mark'});
my $mark_arg = $::FORM{'mark'};
foreach my $rev (split(',',$mark_arg)) {
$mark{$rev} = 1 if ($rev =~ m/^\d+$/);
$rev = &SanitizeRevision($rev);
$mark{$rev} = 1 if ($rev);
}