diff --git a/test/lisp/progmodes/cperl-mode-tests.el b/test/lisp/progmodes/cperl-mode-tests.el
index bcef885a77c..1d7565ae46b 100644
--- a/test/lisp/progmodes/cperl-mode-tests.el
+++ b/test/lisp/progmodes/cperl-mode-tests.el
@@ -231,7 +231,7 @@ issued by CPerl mode."
       (goto-char (point-min))
       (funcall cperl-test-mode)
       (cperl-find-pods-heres)
-      (should (string-match "End of here-document [‘']HERE[’']"
+      (should (string-match "End of here-document [‘'`]HERE[’']"
                             collected-messages))))
   (ert-with-message-capture collected-messages
     (with-temp-buffer
@@ -242,7 +242,7 @@ issued by CPerl mode."
       (goto-char (point-min))
       (funcall cperl-test-mode)
       (cperl-find-pods-heres)
-      (should (string-match "End of here-document [‘']THERE[’']"
+      (should (string-match "End of here-document [‘'`]THERE[’']"
                             collected-messages)))))
 
 (defvar perl-continued-statement-offset)