summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/perl/perl-sources.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c
index 3e74a659..c4d323e6 100644
--- a/src/perl/perl-sources.c
+++ b/src/perl/perl-sources.c
@@ -108,7 +108,8 @@ int perl_timeout_add(int msecs, SV *func, SV *data, int once)
rec = g_new0(PERL_SOURCE_REC, 1);
perl_source_ref(rec);
- rec->script = script;
+ rec->once = once;
+ 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);
@@ -131,6 +132,7 @@ int perl_input_add(int source, int condition, SV *func, SV *data, int once)
rec = g_new0(PERL_SOURCE_REC, 1);
perl_source_ref(rec);
+ rec->once = once;
rec->script =script;
rec->func = perl_func_sv_inc(func, pkg);
rec->data = SvREFCNT_inc(data);