Allow calls to orig_foo, load_orig_foo, set_orig_foo

to be able to call a FUNC that you've overloaded with a function.
2006-04-05 03:59:58 +00:00
parent f5c93b3413
commit 33435d89e4
1 changed files with 1 additions and 0 deletions
--- 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.