--- src/plugins/scripts/perl/weechat-perl.c.orig 2010-04-12 19:08:27.000000000 +0100 +++ src/plugins/scripts/perl/weechat-perl.c 2010-04-12 19:09:23.000000000 +0100 @@ -289,6 +289,7 @@ perl_current_script = NULL; perl_registered_script = NULL; + perl_current_script_filename = filename; #ifdef MULTIPLICITY perl_current_interpreter = perl_alloc(); @@ -302,7 +303,6 @@ return 0; } - perl_current_script_filename = filename; PERL_SET_CONTEXT (perl_current_interpreter); perl_construct (perl_current_interpreter);