diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h
index ab24d6580c..8619ff91f5 100644
--- a/src/pl/plperl/plperl.h
+++ b/src/pl/plperl/plperl.h
@@ -54,6 +54,8 @@
 #ifdef isnan
 #undef isnan
 #endif
+/* Work around for using MSVC and Strawberry Perl >= 5.30. */
+#define __builtin_expect(expr, val) (expr)
 #endif
 
 /*