X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fpocket-devotee;fp=scripts%2Fpocket-devotee;h=6046aa99a44fc0420ee0b95303e2afb90a87b636;hb=1825555e0a311c63556e1309f577d1811ff4dfc3;hp=5eb9e7b1b87ee2e86819ed1b2e4ee03142f38862;hpb=087a6fd32b00c3985999843008c84e12cd9a835b;p=debian-ctte.git

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