diff Lib/IMPL/Object/Factory.pm @ 114:7084af955c57

minor changes, more strict code, no bugs fixed, no features added
author wizard
date Tue, 25 May 2010 01:26:42 +0400
parents 9cb8e730fa86
children 4267a2ac3d46
line wrap: on
line diff
--- 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 {