syntax fix: $#{@x} is invalid syntax that happens to work on released perls, but...

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 8987de1..315666b 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -1309,7 +1309,7 @@ sub populate {
     my @pks = $self->result_source->primary_columns;  
 
     ## do the belongs_to relationships  
-    foreach my $index (0..$#{@$data}) {
+    foreach my $index (0..$#$data) {
       if( grep { !defined $data->[$index]->{$_} } @pks ) {
         my @ret = $self->populate($data);
         return;