Use fully qualified name when adding dynamically generated method to symbol table

This commit is contained in:
Eric A. Miller
2013-01-16 22:59:57 -05:00
parent b9aebf7e9e
commit 0325bb1f25

View File

@@ -4257,13 +4257,13 @@ sub can {
# Check for set_ ing. # Check for set_ ing.
if ( $method =~ /^set_/ ) { if ( $method =~ /^set_/ ) {
return *{$method} = _make_setter( $method, $oid, @_ ); return *{$AUTOLOAD} = _make_setter( $method, $oid, @_ );
} }
elsif ( defined $funcs->{$f_method} || $table ) { elsif ( defined $funcs->{$f_method} || $table ) {
return *{$method} = _load_attr( $method, $oid, @_ ); return *{$AUTOLOAD} = _load_attr( $method, $oid, @_ );
} }
else { else {
return *{$method} = _global( $method, $oid ); return *{$AUTOLOAD} = _global( $method, $oid );
} }
} }