diff options
| -rwxr-xr-x | rf | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -109,10 +109,10 @@ for (my $i = $#lines; $i >= 0; $i--) { if ($points[$winner] < 150) { my $f = fmt("%a, %y", $winner); print STDERR "Warning: Guessing that reference '$rest' refers to $f; "; - if ($points[$winner] > 100) { + if ($points[$winner] >= 100) { + print STDERR "only author matches.\n"; + } elsif ($points[$winner] >= 50) { print STDERR "only date matches.\n"; - } elsif ($points[$winner] > 50) { - print STDERR "only date and title matches.\n"; } else { print STDERR "only title matches (level = $points[$winner]).\n"; } |