From 0325bb1f254280105b02dcc3b6ec8ed0740f0527 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Wed, 16 Jan 2013 22:59:57 -0500
Subject: [PATCH] Use fully qualified name when adding dynamically generated
 method to symbol table

---
 Info.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Info.pm b/Info.pm
index fb7d1de4..12eed352 100644
--- a/Info.pm
+++ b/Info.pm
@@ -4257,13 +4257,13 @@ sub can {
 
     # Check for set_ ing.
     if ( $method =~ /^set_/ ) {
-        return *{$method} = _make_setter( $method, $oid, @_ );
+        return *{$AUTOLOAD} = _make_setter( $method, $oid, @_ );
     }
     elsif ( defined $funcs->{$f_method} || $table ) {
-        return *{$method} = _load_attr( $method, $oid, @_ );
+        return *{$AUTOLOAD} = _load_attr( $method, $oid, @_ );
     }
     else {
-        return *{$method} = _global( $method, $oid );
+        return *{$AUTOLOAD} = _global( $method, $oid );
     }
 }