Mercurial > pub > Impl

diff Lib/IMPL/Object/Abstract.pm @ 339:97628101b765

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring: application now holds a security object factory rather than a security object
author cin
date Wed, 19 Jun 2013 03:25:44 +0400
parents c6d0f889ef87
children 82b6c967bcf1
line wrap: on
line diff
--- a/Lib/IMPL/Object/Abstract.pm	Sat Jun 15 02:32:11 2013 +0400
+++ b/Lib/IMPL/Object/Abstract.pm	Wed Jun 19 03:25:44 2013 +0400
@@ -149,7 +149,7 @@
 
 our $AUTOLOAD;
 sub AUTOLOAD {
-    goto &{caller(). substr $AUTOLOAD,6};
+    goto &{caller(). substr $AUTOLOAD,4};
 }
 
 package supercall;
@@ -157,7 +157,7 @@
 our $AUTOLOAD;
 sub AUTOLOAD {
     my $sub;
-    my $methodName = substr $AUTOLOAD,11;
+    my $methodName = substr $AUTOLOAD,9;
     no strict 'refs';
     $sub = $_->can($methodName) and $sub->(@_) foreach @{caller().'::ISA'};
 }