diff options
| author | Sébastien Helleu <flashcode@flashtux.org> | 2022-02-20 16:29:31 +0100 |
|---|---|---|
| committer | Sébastien Helleu <flashcode@flashtux.org> | 2022-02-20 16:29:31 +0100 |
| commit | 8700e0bb36e0d52b25975d4486bf3e923cabdf68 (patch) | |
| tree | 0e78e19b763328944ee27213ec968e148bc203ee /src/plugins/perl/weechat-perl.c | |
| parent | 601bd7e0b871e21f1909d8ece03dd00262da93a0 (diff) | |
| download | weechat-8700e0bb36e0d52b25975d4486bf3e923cabdf68.zip | |
scripts: auto-load scripts with supported extensions only (closes #1698)
Diffstat (limited to 'src/plugins/perl/weechat-perl.c')
| -rw-r--r-- | src/plugins/perl/weechat-perl.c | 6 |
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); } /* |