From: Vincent Pit Date: Thu, 28 Aug 2008 17:31:33 +0000 (+0200) Subject: Oops, 'bareword' was the old module name X-Git-Tag: v0.03~8 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=3017ea00b43c676ffff95ae730c49656440d605c;p=perl%2Fmodules%2Fsubs-auto.git Oops, 'bareword' was the old module name --- 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; } {