From d20c8238b7d843a83088c3dc41012c8b06f8ce7a Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Tue, 15 Oct 2002 07:40:47 +0000 Subject: Updated from scripts.irssi.org git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2959 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- scripts/scriptassist.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scripts') diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl index 144b2673..3a46593e 100644 --- a/scripts/scriptassist.pl +++ b/scripts/scriptassist.pl @@ -8,7 +8,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = '2002101401'; +$VERSION = '2002101402'; %IRSSI = ( authors => 'Stefan \'tommie\' Tomanek', contact => 'stefan@pico.ruhr.de', @@ -988,9 +988,9 @@ sub cmd_scripassist ($$$) { bg_do("info ".join(' ', @args)); } elsif ($args[0] eq 'echo') { bg_do("echo"); - } elsif ($args[0] eq 'top' && defined $args[1]) { - shift @args; - bg_do("top ".join(' ', @args)); + } elsif ($args[0] eq 'top') { + my $number = defined $args[1] ? $args[1] : 10; + bg_do("top ".$number); } elsif ($args[0] eq 'cpan' && defined $args[1]) { call_openurl('http://search.cpan.org/search?mode=module&query='.$args[1]); } elsif ($args[0] eq 'autorun' && defined $args[1]) { -- cgit v1.2.3