From 1825555e0a311c63556e1309f577d1811ff4dfc3 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 10 Mar 2015 12:29:04 -0700
Subject: [PATCH] add missing newline to failure output; > is the proper
 relationship, not <

---
 scripts/pocket-devotee | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scripts/pocket-devotee b/scripts/pocket-devotee
index 5eb9e7b..6046aa9 100755
--- a/scripts/pocket-devotee
+++ b/scripts/pocket-devotee
@@ -188,7 +188,7 @@ sub winner {
       } elsif (m/^(.+) # the voter, can have spaces
                  \s*:\s+ # needs a colon and a space
                  ((?:[$valid_options] # the vote
-                         \s*(?:,|=|<)?\s*)*) # allow < and , or =
+                         \s*(?:,|=|>)?\s*)*) # allow > and , or =
                  \s*$/x # useless trailing spaces
               ) {
           $voter = $1;
@@ -199,7 +199,7 @@ sub winner {
           my $current_rank = 1;
           my %option_rank;
           while ($vote =~ /([$valid_options]) # the vote
-                           \s*((?:,|=|<)?)\s*/xg) {
+                           \s*((?:,|=|>)?)\s*/xg) {
               my ($option,$relationship) = ($1,$2);
               $option_rank{$option} = $current_rank;
               if ($relationship ne '=') {
@@ -213,7 +213,7 @@ sub winner {
           print {$RESULTS} "V: $vote $voter\n";
 
       } else {
-         print STDERR "ignoring line '$_'; this is probably wrong!";
+         print STDERR "ignoring line '$_'; this is probably wrong!\n";
          next;
       }
 
-- 
2.39.2