summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2002-12-01 22:40:44 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2002-12-01 22:40:44 +0000
commit0e56d6ef0e5fe4c96f47c2a1ffa14ccbc8c19d3b (patch)
tree99bae196a1972d0a49445e8e872990b54f34163f
parentad1136267f870cfb9141f9e60e93c7ffe34240a3 (diff)
downloadirssi-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.pl10
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;