[Bast-commits] r3225 - trunk/DBIx-Class/lib/DBIx/Class
blblack at dev.catalyst.perl.org
blblack at dev.catalyst.perl.org
Thu May 3 04:02:16 GMT 2007
Author: blblack
Date: 2007-05-03 04:02:14 +0100 (Thu, 03 May 2007)
New Revision: 3225
Modified:
trunk/DBIx-Class/lib/DBIx/Class/Schema.pm
Log:
revert part of 3220, apparently it is breaking cloning behavior in subtle ways that we have no tests for
Modified: trunk/DBIx-Class/lib/DBIx/Class/Schema.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Schema.pm 2007-05-02 14:58:45 UTC (rev 3224)
+++ trunk/DBIx-Class/lib/DBIx/Class/Schema.pm 2007-05-03 03:02:14 UTC (rev 3225)
@@ -91,11 +91,15 @@
sub register_source {
my ($self, $moniker, $source) = @_;
- $self->source_registrations->{$moniker} = $source;
+ my %reg = %{$self->source_registrations};
+ $reg{$moniker} = $source;
+ $self->source_registrations(\%reg);
$source->schema($self);
weaken($source->{schema}) if ref($self);
if ($source->result_class) {
- $self->class_mappings->{$source->result_class} = $moniker;
+ my %map = %{$self->class_mappings};
+ $map{$source->result_class} = $moniker;
+ $self->class_mappings(\%map);
}
}
More information about the Bast-commits
mailing list