summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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;