Alias properly checks ->{attrs}{alias}

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 29810f5..96ba9ae 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -2320,7 +2320,7 @@ sub _resolved_attrs {
     push(@{$attrs->{as}}, @$adds);
   }
 
-  $attrs->{from} ||= [ { 'me' => $source->from } ];
+  $attrs->{from} ||= [ { $self->{attrs}{alias} => $source->from } ];
 
   if (exists $attrs->{join} || exists $attrs->{prefetch}) {
     my $join = delete $attrs->{join} || {};

diff --git a/t/search/subquery.t b/t/search/subquery.t
index f6a00dd..bb11a39 100644 (file)
--- a/t/search/subquery.t
+++ b/t/search/subquery.t
@@ -93,4 +93,6 @@ TODO: {
   );
 }
 
+my $rs = $cdrs->search( undef, { alias => 'foo' } );
+warn ${$rs->as_query}->[0], $/;
 __END__