diff --git a/src/modules/perl/mod_perl.c b/src/modules/perl/mod_perl.c
index 6dd9027..dd1f52a 100644
--- a/src/modules/perl/mod_perl.c
+++ b/src/modules/perl/mod_perl.c
@@ -653,6 +653,8 @@ int modperl_is_running(void)
 int modperl_hook_pre_config(apr_pool_t *p, apr_pool_t *plog,
                             apr_pool_t *ptemp)
 {
+    int threaded = 0;
+    int async = 0;
 #if AP_MODULE_MAGIC_AT_LEAST(20110329,0)
     ap_reserve_module_slots_directive("PerlLoadModule");
 #endif
@@ -662,6 +664,15 @@ int modperl_hook_pre_config(apr_pool_t *p, apr_pool_t *plog,
     /* perl 5.8.1+ */
     modperl_hash_seed_init(p);
 
+    ap_mpm_query(AP_MPMQ_IS_THREADED, &threaded);
+    ap_mpm_query(AP_MPMQ_IS_ASYNC, &async);
+
+    if (async && threaded) {
+        ap_log_perror(APLOG_MARK, APLOG_CRIT, 0, ptemp, APLOGNO(00001)
+                      "mod_perl is not compatible with a threaded and async MPM.");
+        return !OK;
+    }
+
     return OK;
 }