From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 10 Mar 2015 19:29:04 +0000 (-0700)
Subject: add missing newline to failure output; > is the proper relationship, not <
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1825555e0a311c63556e1309f577d1811ff4dfc3;p=debian-ctte.git

add missing newline to failure output; > is the proper relationship, not <
---

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