X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F76select.t;h=7560d2c5990c5758b19447dac8d56fcdb6681d6e;hb=7ec05166b27846f53340b708fb17b5898293ea30;hp=bee69e6b12864f0a63b21f0fb7ecc12247c2d7d6;hpb=5fd73721c5877a68d3ca0746e27f52701b57790d;p=dbsrgits%2FDBIx-Class.git diff --git a/t/76select.t b/t/76select.t index bee69e6..7560d2c 100644 --- a/t/76select.t +++ b/t/76select.t @@ -64,6 +64,7 @@ my $cds = $schema->resultset ('CD')->search ({}, { order_by => 'me.cdid'}); # ma cmp_ok ($cds->count, '>', 2, 'Initially populated with more than 2 CDs'); my $table = $cds->result_source->name; +$table = $$table if ref $table eq 'SCALAR'; my $subsel = $cds->search ({}, { columns => [qw/cdid title/], from => \ "(SELECT cdid, title FROM $table LIMIT 2) me",