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");