[Bast-commits] r7835 - branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-11-01 10:52:40 +0000 (Sun, 01 Nov 2009)
New Revision: 7835

Modified:
   branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm
Log:
fix relbuilder initialization (left over from pull)

Modified: branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm	2009-11-01 09:19:27 UTC (rev 7834)
+++ branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Base.pm	2009-11-01 10:52:40 UTC (rev 7835)
@@ -272,10 +272,6 @@
 
     $self->{dump_directory} ||= $self->{temp_directory};
 
-    $self->{relbuilder} = DBIx::Class::Schema::Loader::RelBuilder->new(
-        $self->schema, $self->inflect_plural, $self->inflect_singular
-    ) if !$self->{skip_relationships};
-
     $self->_check_back_compat;
 
     $self;
@@ -409,6 +405,9 @@
 
 sub _relbuilder {
     my ($self) = @_;
+
+    return if $self->{skip_relationships};
+
     $self->{relbuilder} ||= DBIx::Class::Schema::Loader::RelBuilder->new(
         $self->schema, $self->inflect_plural, $self->inflect_singular
     );