Subject: | [PATCH] Fix test for 5.21.7-to-be |
v5.21.6-13-g619dadb made nulled COPs to be of class B::COP, which makes 40walk.t fail. See the attached patch.
Subject: | open_gmdd6aYt.txt |
diff -rup B-Utils-0.25-K2jkIx-orig/t/utils/40walk.t B-Utils-0.25-K2jkIx/t/utils/40walk.t
--- B-Utils-0.25-K2jkIx-orig/t/utils/40walk.t 2014-11-22 17:16:24.000000000 -0800
+++ B-Utils-0.25-K2jkIx/t/utils/40walk.t 2014-11-22 17:16:34.000000000 -0800
@@ -10,7 +10,7 @@ my $callback = sub
{
my $op = shift;
if ('COP' eq B::class($op) and $op->file eq __FILE__) {
- push @lines, $op->line;
+ push @lines, $op->line unless $op->name eq 'null';
}
};