From 48f094652ce673dbe32c6f54aed23034b43e8864 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 13 Feb 2006 18:56:10 +0000
Subject: [PATCH] further mods to convkeps

---
 perl/convkeps.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl/convkeps.pl b/perl/convkeps.pl
index b591ca6b..a7f3e0ae 100755
--- a/perl/convkeps.pl
+++ b/perl/convkeps.pl
@@ -94,6 +94,7 @@ while (<$f>) {
 		$state = 1;
 	} elsif ($state == 1) {
 		last if m{^-};
+		next if m{^To\s+all}i;
 		
 		if (/^[- \w]+$/) {
 			s/\s/-/g;
@@ -116,7 +117,7 @@ while (<$f>) {
 			
 			$state = 3;
 		} else {
-#			print "out of order on line $line\n";
+			#print "out of order on line $line\n";
 			undef $ref;
 			delete $keps{$name};
 			$state = 1;
@@ -133,7 +134,7 @@ while (<$f>) {
 			$ref->{orbit} = $orbit - 0;
 			$count++;
 		} else {
-#			print "out of order on line $line\n";
+			#print "out of order on line $line\n";
 			delete $keps{$name};
 		}
 		undef $ref;
-- 
2.43.0