From: Rafael Kitover <rkitover@cpan.org>
Date: Tue, 25 Jan 2011 17:47:38 +0000 (-0500)
Subject: fix breakage on perl 5.8.x related to unloading temporary classes
X-Git-Tag: 0.07005~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-Schema-Loader.git;a=commitdiff_plain;h=07ba0049cf3d965bae811cc21ea28abbad58bf3c;hp=4e793de74348432fc7d185641bac24a47005e01e

fix breakage on perl 5.8.x related to unloading temporary classes
---

diff --git a/Changes b/Changes
index a752d7e..1e210ce 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
+        - fix breakage on perl 5.8.x related to unloading temporary classes
+
 0.07004  2011-01-24 03:43:05
         - fix bug with result class methods being cached on in a closure instead
           of the object, which breaks for multiple dynamic schemas in a single
diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index e962237..ad3405b 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -1069,7 +1069,7 @@ sub _load_tables {
         local $self->{dump_directory} = $self->{temp_directory};
         $self->_reload_classes(\@tables);
         $self->_load_relationships($_) for @tables;
-        $self->_relbuilder->cleanup;
+#        $self->_relbuilder->cleanup; # this breaks perl 5.8.x
         $self->{quiet} = 0;
 
         # Remove that temp dir from INC so it doesn't get reloaded