projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pass the correct line to PCProt
[spider.git]
/
cmd
/
help.pl
diff --git
a/cmd/help.pl
b/cmd/help.pl
index b8e74c06b3997b6bca804de1e638fa94c8dff0c9..ae11eedbc12b380b9583724141e2776a9ac3d00f 100644
(file)
--- a/
cmd/help.pl
+++ b/
cmd/help.pl
@@
-59,7
+59,7
@@
my $in;
$line =~ s{[^\w/]}{}g;
$line =~ s{/}{.*/}g;
$line =~ s/^\s+//g;
$line =~ s{[^\w/]}{}g;
$line =~ s{/}{.*/}g;
$line =~ s/^\s+//g;
-$line =~ s/
\s
+$//g;
+$line =~ s/
[\s\r]
+$//g;
$line = "help" if $line =~ /^\s*$/;
# sort out aliases
$line = "help" if $line =~ /^\s*$/;
# sort out aliases
@@
-72,6
+72,7
@@
if ($h) {
foreach $in (<$h>) {
next if $in =~ /^\#/;
chomp $in;
foreach $in (<$h>) {
next if $in =~ /^\#/;
chomp $in;
+ $in =~ s/\r$//;
if ($in =~ /^===/) {
last if $state == 2; # come out on next command
$in =~ s/=== //;
if ($in =~ /^===/) {
last if $state == 2; # come out on next command
$in =~ s/=== //;