# HG changeset patch
# User wizard
# Date 1274736402 -14400
# Node ID 7084af955c5711937a75192e90064353260abf60
# Parent  7b14e0122b79ab986e8405f37442bec74404d699
minor changes, more strict code, no  bugs fixed, no features added

diff -r 7b14e0122b79 -r 7084af955c57 Lib/IMPL/Object/Factory.pm
--- a/Lib/IMPL/Object/Factory.pm	Fri May 21 02:38:11 2010 +0400
+++ b/Lib/IMPL/Object/Factory.pm	Tue May 25 01:26:42 2010 +0400
@@ -15,7 +15,7 @@
 sub new {
 	my $self = shift;
 	
-	return ref $self ? $self->CreateObject(@_) : $self->SUPER::new(@_);
+	return ref $self ? $self->CreateObject(@_) : $self->IMPL::Object::new(@_);
 }
 
 sub CTOR {