diff --git a/Info.pm b/Info.pm index 8e1f47fb..ce2ed572 100644 --- a/Info.pm +++ b/Info.pm @@ -2606,6 +2606,7 @@ sub AUTOLOAD { my $attr = $sub_name; $attr =~ s/^(load|set)_//; + $attr =~ s/^orig_//; # Let's use the %GLOBALS and %FUNCS from the class that # inherited us.