X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2Fautovivification%2FTestCases.pm;h=4170a3736ddc4da3139ea09091fa2df5c3ab7d04;hb=7b43fe3caca2977c57aea3f812131d16378cab46;hp=507a4d818c6391b7a5984eaa51c8b3fee3b4cea8;hpb=0c37aa6a52c733eb61895b9c95054e5e2f689ede;p=perl%2Fmodules%2Fautovivification.git

diff --git a/t/lib/autovivification/TestCases.pm b/t/lib/autovivification/TestCases.pm
index 507a4d8..4170a37 100644
--- a/t/lib/autovivification/TestCases.pm
+++ b/t/lib/autovivification/TestCases.pm
@@ -10,14 +10,17 @@ sub import {
  *{caller().'::testcase_ok'} = \&testcase_ok;
 }
 
+sub in_strict { (caller 0)[8] & (eval { strict::bits(@_) } || 0) };
+
 sub source {
  my ($var, $init, $code, $exp, $use, $global) = @_;
  my $decl = $global ? "our $var; local $var;" : "my $var;";
  my $test = $var =~ /^[@%]/ ? "\\$var" : $var;
  return <<TESTCASE;
-my \@exp = ($exp);
 $decl
 $init
+my \$strict = autovivification::TestCases::in_strict('refs');
+my \@exp = ($exp);
 my \$res = eval {
  local \$SIG{__WARN__} = sub { die join '', 'warn:', \@_ };
  $use