diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c
index 7718b871..cedc472c 100644
--- a/src/perl/perl-sources.c
+++ b/src/perl/perl-sources.c
@@ -102,6 +102,7 @@ int perl_timeout_add(int msecs, SV *func, SV *data)
 	rec = g_new0(PERL_SOURCE_REC, 1);
 	perl_source_ref(rec);
 
+        rec->script = script;
 	rec->func = perl_func_sv_inc(func, pkg);
 	rec->data = SvREFCNT_inc(data);
 	rec->tag = g_timeout_add(msecs, (GSourceFunc) perl_source_event, rec);