diff options
author | Peter Karlsson <peterk> | 2001-03-18 21:03:42 +0000 |
---|---|---|
committer | Peter Karlsson <peterk> | 2001-03-18 21:03:42 +0000 |
commit | db5d51852641a425e85835dedcf491722816973c (patch) | |
tree | 6ae7e3a32e08288caccc6edfb681d8b976fa1463 /check_trans.pl | |
parent | d1c200dcbdcbf74a0f90725f07d49ca9f697e2ea (diff) |
Fix -l option to only show the relevant log entries.
CVS version numbers
check_trans.pl: 1.16 -> 1.17
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/check_trans.pl b/check_trans.pl index 9e857e0de01..2ecf9938393 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -417,26 +417,27 @@ sub check_file { print $str unless $opt_Q; $oldname = $name; $oldname =~ s/^$to/$from/; + + my @logrev = split(/\./, $oldr); + $logrev[$#logrev] ++; + my $logoldr = join('.', @logrev); + if ($opt_m) { $translator = "list" if ($translator eq ""); add_part($translator,"summary",$str); add_sub_part($translator,"diff",$name, "cvs -z3 diff -u -r'$oldr' -r '$revision' '$oldname'"); add_sub_part($translator,"logs",$name, - "cvs -z3 log -r'$oldr:$revision' '$oldname'"); + "cvs -z3 log -r'$logoldr:$revision' '$oldname'"); add_sub_part($translator,"file",$name, "cat $name"); } if ($opt_d) { STDOUT->flush; - system("cvs -z3 log -r'$oldr:$revision' '$oldname'") if $showlog; + system("cvs -z3 log -r'$logoldr:$revision' '$oldname'") if $showlog; STDOUT->flush if $showlog; system("cvs -z3 diff -u -r '$oldr' -r '$revision' '$oldname'"); STDOUT->flush; } } - - - - |