From 0e56d6ef0e5fe4c96f47c2a1ffa14ccbc8c19d3b Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Sun, 1 Dec 2002 22:40:44 +0000 Subject: Updated from scripts.irssi.org git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3037 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- scripts/scriptassist.pl | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'scripts/scriptassist.pl') 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; -- cgit v1.2.3