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 $raw = $method =~ /raw$/;
my $attr = $method; my $attr = $method;
$attr =~ s/^load_//; $attr =~ s/^(load|orig)_//;
$attr =~ s/_raw$//; $attr =~ s/_raw$//;
# Get the callback hash for data munging # Get the callback hash for data munging
@@ -3726,7 +3726,7 @@ sub _load_attr {
my $raw = $method =~ /raw$/; my $raw = $method =~ /raw$/;
my $attr = $method; my $attr = $method;
$attr =~ s/^load_//; $attr =~ s/^(load|orig)_//;
$attr =~ s/_raw$//; $attr =~ s/_raw$//;
# Return cached data unless loading or partial # Return cached data unless loading or partial