projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix type in Changes
[spider.git]
/
cmd
/
help.pl
diff --git
a/cmd/help.pl
b/cmd/help.pl
index d87de98113d6fc84829dd08619cedbd592dc307e..011519f626924268925dd17082852dedb56dc445 100644
(file)
--- a/
cmd/help.pl
+++ b/
cmd/help.pl
@@
-14,7
+14,6
@@
my ($self, $line) = @_;
my @out;
# this is naff but it will work for now
my @out;
# this is naff but it will work for now
-$line = "help" unless $line;
my $lang = $self->lang;
$lang = 'en' if !$lang;
my $lang = $self->lang;
$lang = 'en' if !$lang;
@@
-41,10
+40,11
@@
if (!open($h, "$main::localcmd/Commands_$lang.hlp")) {
}
my $in;
}
my $in;
-$line =~ s/![\w\/]//og;
-$line =~ s/\//\.\*\//og;
-$line =~ s/^\s+//og;
-$line =~ s/\s+$//og;
+$line =~ s/[^\w\/]//g;
+$line =~ s/\//\.\*\//g;
+$line =~ s/^\s+//g;
+$line =~ s/\s+$//g;
+$line = "help" if $line =~ /^\s*$/;
# sort out aliases
my $alias = CmdAlias::get_hlp($line);
# sort out aliases
my $alias = CmdAlias::get_hlp($line);