return if $data->{guard} or $func =~ /::/ or exists $core{$func};
local $data->{guard} = 1;
+ my $pkg = $data->{pkg};
+
my $hints = (caller 0)[10];
if ($hints and $hints->{+(__PACKAGE__)}) {
my $pm = $func . '.pm';
return if exists $INC{$pm};
- my $fqn = $data->{pkg} . '::' . $func;
+ my $fqn = $pkg . '::' . $func;
my $cb = do { no strict 'refs'; *$fqn{CODE} };
if ($cb) {
if (_REFCNT_PLACEHOLDERS and defined(my $data = getdata(&$cb, $tag))) {
no strict 'refs';
*$fqn = $cb;
} else {
- _reset($data->{pkg}, $func);
+ _reset($pkg, $func);
}
return;
You have to open global filehandles outside of the scope of this pragma if you want them not to be treated as function calls. Or just use lexical filehandles and default ones as you should be.
+This pragma doesn't propagate into C<eval STRING>.
+
=head1 DEPENDENCIES
L<perl> 5.10.0.
=head1 COPYRIGHT & LICENSE
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.