Correct word deletion in original test

jkeenan · jkeenan · commit 5eda9008c4f5 · 2024-06-13T13:01:26.000-04:00
Per comment from author in #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.
diff --git 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();

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@ TODO: {`
`33`	`33`	`"abcde5678" =~ / b .* (plb:(plb:(.{4}))? (.{5}) ) .$ /x;`
`34`	`34`	`print $1 // "undef", ":", $2 // "undef", "\n";`
`35`	`35`	`EOF`
`36`		`- "undef:de567\nundef:de567", { $switches }, "");`
	`36`	`+ "undef:de567\nundef:de567", { eval $switches }, "");`
`37`	`37`	`}`
`38`	`38`
`39`	`39`	`done_testing();`