diff Lib/IMPL/SQL/Schema/Constraint.pm @ 315:77df11605d3a

code cleanup
author cin
date Tue, 07 May 2013 02:19:24 +0400
parents c6d0f889ef87
children
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Constraint.pm	Thu May 02 10:43:49 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/Constraint.pm	Tue May 07 02:19:24 2013 +0400
@@ -81,7 +81,7 @@
 sub RegisterAlias {
     my ($self,$alias) = @_;
     
-    $aliases{$alias} = $self->typeof;
+    $aliases{$alias} = typeof($self);
 }
 
 1;