From 25fa27c5f0bc3997c3e6fdb8e40975f4d575e581 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Fri, 27 Oct 2000 01:46:20 +0000 Subject: [PATCH] Automatic appending of .pl to script name didn't work for file names less than 4 chars. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@787 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perl/perl.c b/src/perl/perl.c index 6fb1d9db..3ade4b72 100644 --- a/src/perl/perl.c +++ b/src/perl/perl.c @@ -281,7 +281,7 @@ static void cmd_run(const char *data) fname = g_strdup(data); } else { /* add .pl suffix if it's missing */ - name = (strlen(data) <= 3 || strcmp(data+strlen(data)-3, ".pl") == 0) ? + name = (strlen(data) > 3 && strcmp(data+strlen(data)-3, ".pl") == 0) ? g_strdup(data) : g_strdup_printf("%s.pl", data); /* check from ~/.irssi/scripts/ */