diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index d3e07792..d5b9d6e8 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -196,7 +196,7 @@ CODE:
 		croak("Irssi::timeout() : msecs must be >= 10");
 		RETVAL = -1;
 	} else {
-		RETVAL = perl_timeout_add(msecs, func, data);
+		RETVAL = perl_timeout_add(msecs, func, data, FALSE);
 	}
 OUTPUT:
 	RETVAL
@@ -211,7 +211,7 @@ CODE:
 		croak("Irssi::timeout_once() : msecs must be >= 10");
 		RETVAL = -1;
 	} else {
-		RETVAL = perl_timeout_add(msecs, func, data);
+		RETVAL = perl_timeout_add(msecs, func, data, TRUE);
 	}
 OUTPUT:
 	RETVAL
@@ -244,7 +244,7 @@ input_add(source, condition, func, data)
 	SV *func
 	SV *data
 CODE:
-	RETVAL = perl_input_add(source, condition, func, data);
+	RETVAL = perl_input_add(source, condition, func, data, FALSE);
 OUTPUT:
 	RETVAL
 
diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c
index c4d323e6..9379601c 100644
--- a/src/perl/perl-sources.c
+++ b/src/perl/perl-sources.c
@@ -24,6 +24,7 @@
 
 #include "perl-core.h"
 #include "perl-common.h"
+#include "perl-sources.h"
 
 typedef struct {
         PERL_SCRIPT_REC *script;
diff --git a/src/perl/perl-sources.h b/src/perl/perl-sources.h
index db165689..a83a65a6 100644
--- a/src/perl/perl-sources.h
+++ b/src/perl/perl-sources.h
@@ -1,8 +1,8 @@
 #ifndef __PERL_SOURCES_H
 #define __PERL_SOURCES_H
 
-int perl_timeout_add(int msecs, SV *func, SV *data);
-int perl_input_add(int source, int condition, SV *func, SV *data);
+int perl_timeout_add(int msecs, SV *func, SV *data, int once);
+int perl_input_add(int source, int condition, SV *func, SV *data, int once);
 
 void perl_source_remove(int tag);
 /* remove all sources used by script */