From 5eda9008c4f5299b875edb5b923ffb00c554ac5a Mon Sep 17 00:00:00 2001
From: James E Keenan <jkeenan@cpan.org>
Date: Thu, 13 Jun 2024 13:01:26 -0400
Subject: [PATCH] Correct word deletion in original test

Per comment from author in https://github.com/Perl/perl5/pull/22275, the
code should have read '{ eval $switches }' as in other test files.

Making this correction eliminates the "Odd number of elements in
anonymous hash" warning which was the concern in that pull request.

Fixes GH #22275.
---
 t/run/todo.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/run/todo.t b/t/run/todo.t
index 621faf3fd462..4aadcec77a61 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -33,7 +33,7 @@ TODO: {
         "abcde5678" =~ / b .* (*plb:(*plb:(.{4}))? (.{5}) ) .$ /x;
         print $1 // "undef", ":", $2 // "undef", "\n";
         EOF
-    "undef:de567\nundef:de567", { $switches }, "");
+    "undef:de567\nundef:de567", { eval $switches }, "");
 }
 
 done_testing();