From 1c03f54153e160ac58e66c74ebcbc80f3ecac94a Mon Sep 17 00:00:00 2001 From: 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