Strip orig_ from method name in _global() and _load_attr()

This commit is contained in:
Eric A. Miller
2012-11-26 20:46:26 -05:00
parent 6692ddcf1f
commit de28ff96c2

View File

@@ -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