X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fdbixcsl_common_tests.pm;h=e1ee1ceca9fc548c5e85b51ab4a64bf0b40e01b0;hb=80a212f5f65cdd0098744b3ff5498250dab205d2;hp=30710e90b4f8ca6b0f452459777e0690c4effed1;hpb=3d044e23368dfbcf6a8f8c3225b96fa19642d932;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index 30710e9..e1ee1ce 100644
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -210,6 +210,8 @@ sub test_schema {
     foreach my $source_name ($schema_class->sources) {
         my $table_name = $schema_class->source($source_name)->from;
 
+        $table_name = $$table_name if ref $table_name;
+
         $monikers->{$table_name} = $source_name;
         $classes->{$table_name} = $schema_class . q{::} . $source_name;