diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index 100b1a1..63626a9 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -288,6 +288,7 @@ weechat_perl_load (const char *filename)
     }
     
     perl_current_script = NULL;
+    perl_current_script_filename = filename;
     perl_registered_script = NULL;
     
 #ifdef MULTIPLICITY
@@ -302,8 +303,6 @@ weechat_perl_load (const char *filename)
         return 0;
     }
     
-    perl_current_script_filename = filename;
-    
     PERL_SET_CONTEXT (perl_current_interpreter);
     perl_construct (perl_current_interpreter);
     temp_script.interpreter = (PerlInterpreter *) perl_current_interpreter;