This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tests for XS AUTOLOAD routines
[perl5.git] / ext / XS-APItest / APItest.pm
index a3792d4..c6426d3 100644 (file)
@@ -24,6 +24,8 @@ sub import {
            if ($sym_name =~ /::$/) {
                # Skip any subpackages that are clearly OO
                next if *{$glob}{HASH}{'new'};
+               # Skip AutoLoader, too, as it’s a special case
+               next if $sym_name eq 'AutoLoader::';
                push @stashes, "$stash_name$sym_name", *{$glob}{HASH};
            } elsif (ref $glob eq 'SCALAR' || *{$glob}{CODE}) {
                if ($exports) {