From de28ff96c2e89e617f4464deb67c7564f14a9157 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Mon, 26 Nov 2012 20:46:26 -0500
Subject: [PATCH] Strip orig_ from method name in _global() and _load_attr()

---
 Info.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Info.pm b/Info.pm
index 7a58166c..6c3bbba3 100644
--- a/Info.pm
+++ b/Info.pm
@@ -3413,7 +3413,7 @@ sub _global {
         my $raw  = $method =~ /raw$/;
 
         my $attr = $method;
-        $attr =~ s/^load_//;
+        $attr =~ s/^(load|orig)_//;
         $attr =~ s/_raw$//;
 
         # Get the callback hash for data munging
@@ -3726,7 +3726,7 @@ sub _load_attr {
         my $raw  = $method =~ /raw$/;
 
         my $attr = $method;
-        $attr =~ s/^load_//;
+        $attr =~ s/^(load|orig)_//;
         $attr =~ s/_raw$//;
 
         # Return cached data unless loading or partial