fix level as hashref argument
Doug Bell [Wed, 26 Aug 2015 09:27:20 +0000 (05:27 -0400)]
lib/Import/Into.pm

index 1e4fb75..cc9ef0b 100644 (file)
@@ -9,7 +9,7 @@ our $VERSION = '1.002004';
 sub _prelude {
   my $target = shift;
   my ($package, $file, $line, $level)
-    = ref $target         ? @{$target}{qw(package filename line)}
+    = ref $target         ? @{$target}{qw(package filename line level)}
     : $target =~ /[^0-9]/ ? ($target)
                           : (undef, undef, undef, $target);
   if (defined $level) {