[Bast-commits] r6852 - DBIx-Class/0.08/branches/table_name_ref/lib/DBIx/Class

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-29 21:13:48 +0000 (Mon, 29 Jun 2009)
New Revision: 6852

Modified:
   DBIx-Class/0.08/branches/table_name_ref/lib/DBIx/Class/ResultSource.pm
Log:
fix t/80unique.t

Modified: DBIx-Class/0.08/branches/table_name_ref/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/branches/table_name_ref/lib/DBIx/Class/ResultSource.pm	2009-06-29 20:56:45 UTC (rev 6851)
+++ DBIx-Class/0.08/branches/table_name_ref/lib/DBIx/Class/ResultSource.pm	2009-06-29 21:13:48 UTC (rev 6852)
@@ -484,7 +484,10 @@
 sub name_unique_constraint {
   my ($self, $cols) = @_;
 
-  return join '_', $self->name, @$cols;
+  my $name = $self->name;
+  $name = $$name if ref $name;
+
+  return join '_', $name, @$cols;
 }
 
 =head2 unique_constraints