Skip some harmless failures in t/11-args.t with old B::Deparse

diff --git a/t/11-args.t b/t/11-args.t
index f2ed33d2ac6d861eb2092caae6708aa6b0c42896..60dd70fe0cf8fb8dc00eb3fc86d283ba7c582909 100644 (file)
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -22,7 +22,10 @@ my $i = 1;
 for (@brd_args) {
  my $brd = B::RecDeparse->new(%$_, level => 0);
  my $code = $brd->coderef2text(\&wut);
+SKIP: {
+ skip 'Harmless mismatch on "use warnings" code generation with olders B::Deparse' => 1 if $B::Deparse::VERSION < 0.71;
  is($code, $reference, "empty deparse and level 0 does the same thing as B::Deparse ($i)");
+}
  $code = eval 'sub ' . $code;
  is($@, '', "result compiles ($i)");
  is_deeply( [ defined $code, ref $code ], [ 1, 'CODE' ], "result compiles to a code reference ($i)");