[perl #91514] Use correct error msg for ｄｅｆａｕｌｔ

This commit not only mentions ｄｅｆａｕｌｔ (as opposed to ｗｈｅｎ)
in the error message about it being outside a topicalizer, but
also normalises those error messages, making them consistent with
ｃｏｎｔｉｎｕｅ and other loop controls.  It also makes the perldiag
entry for ｗｈｅｎ actually match the error message.

1 files changed, 3 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 953a749948..a9012ee57f 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -5024,7 +5024,9 @@ PP(pp_leavewhen)
 
     cxix = dopoptogiven(cxstack_ix);
     if (cxix < 0)
-	DIE(aTHX_ "Can't use when() outside a topicalizer");
+	/* diag_listed_as: Can't "when" outside a topicalizer */
+	DIE(aTHX_ "Can't \"%s\" outside a topicalizer",
+	           PL_op->op_flags & OPf_SPECIAL ? "default" : "when");
 
     POPBLOCK(cx,newpm);
     assert(CxTYPE(cx) == CXt_WHEN);