X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FImport-Into.git;a=blobdiff_plain;f=lib%2FImport%2FInto.pm;h=cc9ef0b6479a493b3697513c6edea7c7b992982d;hp=34ae9422f44d537efce55e79aa2466386e160f1c;hb=bd74adea007ab33d9b1321d911dd76371317c128;hpb=6a91d2cb2c4774e42fb644aa795eaed30ab6d1fc diff --git a/lib/Import/Into.pm b/lib/Import/Into.pm index 34ae942..cc9ef0b 100644 --- a/lib/Import/Into.pm +++ b/lib/Import/Into.pm @@ -4,12 +4,12 @@ use strict; use warnings FATAL => 'all'; use Module::Runtime; -our $VERSION = '1.002003'; +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) {