diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 723533d7..d1bcb67b 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -436,6 +436,13 @@ CODE:
 OUTPUT:
 	RETVAL
 
+void
+require_version(date)
+	int date
+CODE:
+	if (date > atol(IRSSI_VERSION_DATE))
+		die("This script requires irssi version %d or later", date);
+
 #*******************************
 MODULE = Irssi::Core	PACKAGE = Irssi::Server
 #*******************************