X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=deeec16cf416a8bcb033925922d3f477db8b4e77;hp=c0be5aa09b8ed0b5163cf9281b9d2e7fda0040db;hb=35b937a8dd5f9a174be4404495bf65137ccf3fbc;hpb=38d92c601799850a3428bf919c6b9f8ba1877cb5

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index c0be5aa..deeec16 100644
--- a/lib/subs/auto.pm
+++ b/lib/subs/auto.pm
@@ -202,7 +202,7 @@ sub import {
  }
  my %args = @_;
 
- my $cur = (caller 1)[0];
+ my $cur = caller;
  my $in  = _validate_pkg $args{in}, $cur;
  ++$pkgs{$in};
  {