X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FB-RecDeparse.git;a=blobdiff_plain;f=t%2F11-args.t;h=60dd70fe0cf8fb8dc00eb3fc86d283ba7c582909;hp=f2ed33d2ac6d861eb2092caae6708aa6b0c42896;hb=0b3c9376d654b86126708b9d63c873df6ed22811;hpb=f92b75386a7476c420e66629a5a57d1882c0c2f4

diff --git a/t/11-args.t b/t/11-args.t
index f2ed33d..60dd70f 100644
--- 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)");