Fix ext/Devel-Peek/t/Peek.t on threaded Perl

References: Perl#226
toddr · Aug 27, 2020 · 8a12c7b · 8a12c7b
1 parent 4a95e01
commit 8a12c7b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
@@ -347,8 +347,8 @@ do_test('reference to named subroutine without prototype',
        \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$repeat_todo"
        \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$pattern"
        \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$do_eval"
-       \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$setup_stderr"
-       \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "&"
+\s+\\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$setup_stderr"
+\s+\\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "&"
       \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$sub"
       \\d+\\. $ADDR<\\d+> FAKE "\\$DEBUG" flags=0x0 index=0
       \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$dump"