[Bast-commits] r4712 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2008-08-01 12:29:34 +0100 (Fri, 01 Aug 2008)
New Revision: 4712

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm
Log:
fixed clone bug

Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2008-08-01 08:44:54 UTC (rev 4711)
+++ DBIx-Class/0.08/trunk/Changes	2008-08-01 11:29:34 UTC (rev 4712)
@@ -1,6 +1,8 @@
 Revision history for DBIx::Class
 
 0.08099_04 2008-07-24 01:00:00
+        - Fixed $schema->clone bug which caused clone and source to share 
+          internal hash refs
         - Added register_extra_source methods for additional sources
         - Added datetime_undef_if_invalid for InflateColumn::DateTime to
           return undef on invalid date/time values

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm	2008-08-01 08:44:54 UTC (rev 4711)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm	2008-08-01 11:29:34 UTC (rev 4712)
@@ -910,6 +910,8 @@
   my $clone = { (ref $self ? %$self : ()) };
   bless $clone, (ref $self || $self);
 
+  $clone->class_mappings({ %{$clone->class_mappings} });
+  $clone->source_registrations({ %{$clone->source_registrations} });
   foreach my $moniker ($self->sources) {
     my $source = $self->source($moniker);
     my $new = $source->new($source);