aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2020-11-13 01:48:57 +0100
committerJohn Ankarström <john@ankarstrom.se>2020-11-13 01:48:57 +0100
commit10a85aea004484aae7e07f09235c75e90615787b (patch)
treecf1b39462a08943518d683de514769dd49c6e6a5
parent19298d47c5d11bbaedaac530986ce4cb0a9ed06d (diff)
fix error in weak match warning
-rwxr-xr-xrf6
1 files changed, 3 insertions, 3 deletions
diff --git a/rf b/rf
index 5822447..338409d 100755
--- a/rf
+++ b/rf
@@ -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";
}