X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fhelp.pl;h=ae11eedbc12b380b9583724141e2776a9ac3d00f;hb=e0fa9a04bfb66136a2485246c7ea1ec8f00e00e2;hp=d3a2b2683dcb6abd826fabddac51c3ac255f5588;hpb=9c1c3d6366ec08c767170e5ba478ac34a563032d;p=spider.git

diff --git a/cmd/help.pl b/cmd/help.pl
index d3a2b268..ae11eedb 100644
--- a/cmd/help.pl
+++ b/cmd/help.pl
@@ -31,7 +31,7 @@ $lang = 'en' if !$lang;
 # The fields are:- privilege level, full command name, short description
 #
 
-$DB::single = 1;
+#$DB::single = 1;
 
 
 my $defh = new IO::File;
@@ -59,7 +59,7 @@ my $in;
 $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
@@ -72,6 +72,7 @@ if ($h) {
 	foreach $in (<$h>) {
 		next if $in =~ /^\#/;
 		chomp $in;
+		$in =~ s/\r$//;
 		if ($in =~ /^===/) {
 			last if $state == 2;           # come out on next command
 			$in =~ s/=== //;