diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 75b851d6..8e26f105 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -303,6 +303,13 @@ CODE:
 	perl_source_remove(tag);
 
 # maybe there's some easier way than this..? :)
+int
+MSGLEVEL_HIDDEN()
+CODE:
+	RETVAL = MSGLEVEL_HIDDEN;
+OUTPUT:
+	RETVAL
+
 int
 MSGLEVEL_CRAP()
 CODE:
diff --git a/src/perl/common/Irssi.pm b/src/perl/common/Irssi.pm
index 1d7ed2f3..786d0e52 100644
--- a/src/perl/common/Irssi.pm
+++ b/src/perl/common/Irssi.pm
@@ -142,7 +142,7 @@ require DynaLoader;
 	MSGLEVEL_TOPICS MSGLEVEL_WALLOPS MSGLEVEL_INVITES MSGLEVEL_NICKS
 	MSGLEVEL_DCC MSGLEVEL_DCCMSGS MSGLEVEL_CLIENTNOTICE MSGLEVEL_CLIENTCRAP
 	MSGLEVEL_CLIENTERROR MSGLEVEL_HILIGHT MSGLEVEL_ALL MSGLEVEL_NOHILIGHT
-	MSGLEVEL_NO_ACT MSGLEVEL_NEVER MSGLEVEL_LASTLOG
+	MSGLEVEL_NO_ACT MSGLEVEL_NEVER MSGLEVEL_LASTLOG MSGLEVEL_HIDDEN
 );
 
 my $static = 0;