X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=20ff6d28377f5f950ce0dd55502c3c0a452b8f5c;hp=87fcc5528712605318d73b56163c74e510f04e1c;hb=3017ea00b43c676ffff95ae730c49656440d605c;hpb=8c014a64b4ed83a697c0109af2c1555bc8c26ae9

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index 87fcc55..20ff6d2 100644
--- a/lib/subs/auto.pm
+++ b/lib/subs/auto.pm
@@ -123,7 +123,7 @@ sub _fetch {
  return unless $func !~ /::/ and not exists $core{$func};
  local $data->{guard} = 1;
  my $hints = (caller 0)[10];
- if ($hints and $hints->{bareword}) {
+ if ($hints and $hints->{subs__auto}) {
   my $mod = $func . '.pm';
   if (not exists $INC{$mod}) {
    my $fqn = $data->{pkg} . '::' . $func;
@@ -175,14 +175,14 @@ sub import {
  my %args = @_;
  my $cur  = (caller 1)[0];
  my $in   = _validate_pkg $args{in}, $cur;
- $^H{bareword} = 1;
+ $^H{subs__auto} = 1;
  ++$pkgs{$in};
  no strict 'refs';
  cast %{$in . '::'}, $wiz, $in;
 }
 
 sub unimport {
- $^H{bareword} = 0;
+ $^H{subs__auto} = 0;
 }
 
 {