From b821783bbf55b77a2f38a19d27dd3b1f213df936 Mon Sep 17 00:00:00 2001 From: Emmanuel Bouthenot Date: Mon, 28 Nov 2005 19:32:48 +0000 Subject: [PATCH] remove unused perl_current_script_filename variable --- src/plugins/scripts/perl/weechat-perl.c | 4 ---- weechat/src/plugins/scripts/perl/weechat-perl.c | 4 ---- 2 files changed, 8 deletions(-) diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c index 25cd2c633..efc3504a5 100644 --- a/src/plugins/scripts/perl/weechat-perl.c +++ b/src/plugins/scripts/perl/weechat-perl.c @@ -36,7 +36,6 @@ t_weechat_plugin *perl_plugin; t_plugin_script *perl_scripts = NULL; t_plugin_script *perl_current_script = NULL; -char *perl_current_script_filename = NULL; extern void boot_DynaLoader (pTHX_ CV* cv); @@ -904,9 +903,6 @@ weechat_perl_load (t_weechat_plugin *plugin, char *filename) return 0; } - perl_current_script_filename = strdup (filename); - free (perl_current_script_filename); - if (perl_current_script == NULL) { plugin->printf_server (plugin, "Perl error: function \"register\" not found " diff --git a/weechat/src/plugins/scripts/perl/weechat-perl.c b/weechat/src/plugins/scripts/perl/weechat-perl.c index 25cd2c633..efc3504a5 100644 --- a/weechat/src/plugins/scripts/perl/weechat-perl.c +++ b/weechat/src/plugins/scripts/perl/weechat-perl.c @@ -36,7 +36,6 @@ t_weechat_plugin *perl_plugin; t_plugin_script *perl_scripts = NULL; t_plugin_script *perl_current_script = NULL; -char *perl_current_script_filename = NULL; extern void boot_DynaLoader (pTHX_ CV* cv); @@ -904,9 +903,6 @@ weechat_perl_load (t_weechat_plugin *plugin, char *filename) return 0; } - perl_current_script_filename = strdup (filename); - free (perl_current_script_filename); - if (perl_current_script == NULL) { plugin->printf_server (plugin, "Perl error: function \"register\" not found "