X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fapropos.pl;h=d3def0cd5dffe9230122ff759d0e68fc22377a55;hb=7b96c0d932ac9f34cbbaf97b8299ed8d0b47e598;hp=9b7bcde9c4ce50e8d70f806d91e8ad0472e4470a;hpb=f4a351341392cf663c7256a352dc0c9f027fa48a;p=spider.git diff --git a/cmd/apropos.pl b/cmd/apropos.pl index 9b7bcde9..d3def0cd 100644 --- a/cmd/apropos.pl +++ b/cmd/apropos.pl @@ -44,6 +44,7 @@ my $include; foreach $in (<$defh>) { next if $in =~ /^\#/; chomp $in; + $in =~ s/\r$//; if ($in =~ /^===/) { $cmd{$cmd} = "$cmd $desc" if $include; $include = 0; @@ -66,6 +67,7 @@ if ($h) { foreach $in (<$h>) { next if $in =~ /^\#/; chomp $in; + $in =~ s/\r$//; if ($in =~ /^===/) { $cmd{$cmd} = "$cmd $desc" if $include; $include = 0;