I totally misunderstood the even/odd spec. Add some docs, remove my 'left+' hack, and orthogonalize left/right versus even/odd so you can specify them independently.

1 files changed, 6 insertions, 7 deletions

diff --git a/runoff b/runoff
index 3dee1cc..345fb2e 100755
--- a/runoff
+++ b/runoff
@@ -89,21 +89,20 @@ perl -e '
 			next;
 		}
 		
-		if(/(left|right)(\+?): (.*)/){
+		if(/(left|right): (.*)/){
 			$what = $1;
-			$tens = ($2 eq "+" ? "5" : "0");
-			$file = $3;
+			$file = $2;
 			if(!defined($toc{$file})){
 				print STDERR "Have no toc for $file\n";
 				next;
 			}
-			if($what eq "left" && !($toc{$file} =~ /^\d[$left]$tens/)){
-				print STDERR "$file does not start on a fresh left page [$toc{$file}]\n";
+			if($what eq "left" && !($toc{$file} =~ /^\d[$left][05]/)){
+				print STDERR "$file does not start on a left page [$toc{$file}]\n";
 			}
 			# why does this not work if I inline $x in the if?
-			$x = ($toc{$file} =~ /^\d[$right]$tens/);
+			$x = ($toc{$file} =~ /^\d[$right][05]/);
 			if($what eq "right" && !$x){
-				print STDERR "$file does not start on a fresh right page [$toc{$file}] [$x]\n";
+				print STDERR "$file does not start on a right page [$toc{$file}] [$x]\n";
 			}
 			next;
 		}