fix error in weak match warning

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";
 			}