Use fully qualified name when adding dynamically generated method to symbol table
This commit is contained in:
6
Info.pm
6
Info.pm
@@ -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 );
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user