Quote the word "defer" in exception messages about control flow

1 files changed, 6 insertions, 6 deletions

diff --git a/t/op/defer.t b/t/op/defer.t
index 8b62cc6ed7..20acd0c3ea 100644
--- a/t/op/defer.t
+++ b/t/op/defer.t
@@ -261,7 +261,7 @@ no warnings 'experimental::defer';
     };
 
     my $e = defined eval { $sub->(); 1 } ? undef : $@;
-    like($e, qr/^Can't "return" out of a defer block /,
+    like($e, qr/^Can't "return" out of a "defer" block /,
         'Cannot return out of defer block');
 }
 
@@ -274,7 +274,7 @@ no warnings 'experimental::defer';
     };
 
     my $e = defined eval { $sub->(); 1 } ? undef : $@;
-    like($e, qr/^Can't "goto" out of a defer block /,
+    like($e, qr/^Can't "goto" out of a "defer" block /,
         'Cannot goto out of defer block');
 }
 
@@ -287,7 +287,7 @@ no warnings 'experimental::defer';
     };
 
     my $e = defined eval { $sub->(); 1 } ? undef : $@;
-    like($e, qr/^Can't "goto" into a defer block /,
+    like($e, qr/^Can't "goto" into a "defer" block /,
         'Cannot goto into defer block');
 }
 
@@ -300,8 +300,8 @@ no warnings 'experimental::defer';
     };
 
     my $e = defined eval { $subA->(); 1 } ? undef : $@;
-    like($e, qr/^Can't "goto" out of a defer block at /,
-        'Cannot goto &SUB out of a defer block');
+    like($e, qr/^Can't "goto" out of a "defer" block at /,
+        'Cannot goto &SUB out of a "defer" block');
 }
 
 {
@@ -312,7 +312,7 @@ no warnings 'experimental::defer';
     };
 
     my $e = defined eval { $sub->(); 1 } ? undef : $@;
-    like($e, qr/^Can't "last" out of a defer block /,
+    like($e, qr/^Can't "last" out of a "defer" block /,
         'Cannot last out of defer block');
 }