From 3f578b4b536f5cbe54a08b2895f5bd26a7e40975 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Tue, 23 Oct 2001 20:49:17 +0000
Subject: [PATCH] /SCRIPT without parameters now prints list of loaded scripts.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1901 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/perl-fe.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c
index ee19c5a2..17b57ee1 100644
--- a/src/perl/perl-fe.c
+++ b/src/perl/perl-fe.c
@@ -32,6 +32,9 @@
 
 static void cmd_script(const char *data, SERVER_REC *server, void *item)
 {
+	if (*data == '\0')
+                data = "list";
+
 	command_runsub("script", data, server, item);
 }