Allow passing level 0 to Variable::Magic::TestGlobalDestruction::import

diff --git a/t/lib/Variable/Magic/TestGlobalDestruction.pm b/t/lib/Variable/Magic/TestGlobalDestruction.pm
index 83f88bbfe1fb9ee726c2486385ef2a8f151e99aa..d610dc0a19fd2019157fb8dbac1c1ae33e663c66 100644 (file)
--- a/t/lib/Variable/Magic/TestGlobalDestruction.pm
+++ b/t/lib/Variable/Magic/TestGlobalDestruction.pm
@@ -63,8 +63,10 @@ sub is_debugging_perl {
 
 sub import {
  shift;
- my %args  = @_;
- my $level = $args{level} || 1;
+ my %args = @_;
+
+ my $level = $args{level};
+ $level    = 1 unless defined $level;
 
  if ("$]" < 5.013_004 and not $ENV{PERL_VARIABLE_MAGIC_TEST_THREADS}) {
   _diag("perl 5.13.4 required to safely test global destruction");