diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-12-01 22:40:44 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-12-01 22:40:44 +0000 |
| commit | 0e56d6ef0e5fe4c96f47c2a1ffa14ccbc8c19d3b (patch) | |
| tree | 99bae196a1972d0a49445e8e872990b54f34163f | |
| parent | ad1136267f870cfb9141f9e60e93c7ffe34240a3 (diff) | |
| download | irssi-0e56d6ef0e5fe4c96f47c2a1ffa14ccbc8c19d3b.zip | |
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3037 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | scripts/scriptassist.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl index be79dc81..e28f1abe 100644 --- a/scripts/scriptassist.pl +++ b/scripts/scriptassist.pl @@ -6,7 +6,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = '2002112501'; +$VERSION = '2002120101'; %IRSSI = ( authors => 'Stefan \'tommie\' Tomanek', contact => 'stefan@pico.ruhr.de', @@ -1051,16 +1051,14 @@ sub sig_complete ($$$$$) { my ($list, $window, $word, $linestart, $want_space) = @_; return unless $linestart =~ /^.script(assist)? (install|rate|ratings|update|check|contact|info|autorun)/; my @newlist; + my $str = $word; foreach (@complist) { - #Irssi::print $_; - #Irssi::print "-".$word."-"; - if ($_ =~ /^($word.*)?$/) { - #äIrssi::print "add"; + if ($_ =~ /^(\Q$str\E.*)?$/) { push @newlist, $_; } } foreach (@{loaded_scripts()}) { - push @newlist, $_ if $_ =~ /^($word.*)?$/; + push @newlist, $_ if /^(\Q$str\E.*)?$/; } $want_space = 0; push @$list, $_ foreach @newlist; |