projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Update manuals for CVS and new commands
[spider.git]
/
perl
/
convkeps.pl
diff --git
a/perl/convkeps.pl
b/perl/convkeps.pl
index 4c05d05a04d2b49d6970fcd3e350d40ad85d4a96..268a7f29f7ea58a1ce3ba326a37125e4297e9bde 100755
(executable)
--- 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;
}