X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconvkeps.pl;h=268a7f29f7ea58a1ce3ba326a37125e4297e9bde;hb=d384410d4d5d1031cabab44350b80f2a55fe808d;hp=4c05d05a04d2b49d6970fcd3e350d40ad85d4a96;hpb=a6d0720c825ae5d7233025c96e0f04ac48d5b811;p=spider.git

diff --git a/perl/convkeps.pl b/perl/convkeps.pl
index 4c05d05a..268a7f29 100755
--- a/perl/convkeps.pl
+++ b/perl/convkeps.pl
@@ -81,7 +81,7 @@ while (<$f>) {
 	++$line;
 	chomp;
 	s/^\s+//;
-    s/\s+$//;
+    s/[\s\r]+$//;
 	next unless $_;
 	last if m{^/EX}i;
 	last if m{^-};
@@ -93,7 +93,7 @@ while (<$f>) {
 		
 		if (/^\w+/) {
 			s/\s/-/g;
-			$name = $_;
+			$name = uc $_;
 			$ref = $keps{$name} = {}; 
 			$state = 2;
 		}