summaryrefslogtreecommitdiff
path: root/src/plugins/perl
diff options
context:
space:
mode:
authorSébastien Helleu <flashcode@flashtux.org>2022-02-20 16:29:31 +0100
committerSébastien Helleu <flashcode@flashtux.org>2022-02-20 16:29:31 +0100
commit8700e0bb36e0d52b25975d4486bf3e923cabdf68 (patch)
tree0e78e19b763328944ee27213ec968e148bc203ee /src/plugins/perl
parent601bd7e0b871e21f1909d8ece03dd00262da93a0 (diff)
downloadweechat-8700e0bb36e0d52b25975d4486bf3e923cabdf68.zip
scripts: auto-load scripts with supported extensions only (closes #1698)
Diffstat (limited to 'src/plugins/perl')
-rw-r--r--src/plugins/perl/weechat-perl.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/plugins/perl/weechat-perl.c b/src/plugins/perl/weechat-perl.c
index d28c0697d..ede5bea73 100644
--- a/src/plugins/perl/weechat-perl.c
+++ b/src/plugins/perl/weechat-perl.c
@@ -663,10 +663,14 @@ weechat_perl_load (const char *filename, const char *code)
void
weechat_perl_load_cb (void *data, const char *filename)
{
+ const char *pos_dot;
+
/* make C compiler happy */
(void) data;
- weechat_perl_load (filename, NULL);
+ pos_dot = strrchr (filename, '.');
+ if (pos_dot && (strcmp (pos_dot, ".pl") == 0))
+ weechat_perl_load (filename, NULL);
}
/*