Make t/14-refs.t pass on perl 5.21

At some point in the 5.21.x branch, B::Deparse has started to deparse sub
references as fully qualified names under "use strict 'vars'". We just
turn this stricture off while compiling the test cases for the time being.

diff --git a/t/14-refs.t b/t/14-refs.t
index 026a908fca9fddef9a881f483db9606096fbd50d..c57fbe349845821728daf2e642edf4a9a65adcb1 100644 (file)
--- a/t/14-refs.t
+++ b/t/14-refs.t
@@ -7,11 +7,16 @@ use Test::More tests => 2 * (4 + 3) * 4;
 
 use B::RecDeparse;
 
-sub dummy { }
-sub add { $_[0] + $_[1] }
-sub call ($$$) { my $x = \&dummy; $_[0]->($_[1], $_[2]) }
-sub foo { call(\&add, $_[0], 1); }
-sub bar { my $y = \&call; $y->(\&add, $_[0], 1); }
+{
+ BEGIN {
+  strict->unimport('vars') if "$]" >= 5.021;
+ }
+ sub dummy { }
+ sub add { $_[0] + $_[1] }
+ sub call ($$$) { my $x = \&dummy; $_[0]->($_[1], $_[2]) }
+ sub foo { call(\&add, $_[0], 1); }
+ sub bar { my $y = \&call; $y->(\&add, $_[0], 1); }
+}
 
 sub which {
  my ($brd, $coderef, $yfunc, $yref, $nfunc, $nref, $l) = @_;