From: Brandon L. Black <blblack@gmail.com>
Date: Fri, 1 Jun 2007 14:03:13 +0000 (+0000)
Subject: syntax fix: $#{@x} is invalid syntax that happens to work on released perls, but... 
X-Git-Tag: v0.08010~150^2~25
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bcf03483efc36845e05c2ec48048e7aebf0cd9b8;p=dbsrgits%2FDBIx-Class.git

syntax fix: $#{@x} is invalid syntax that happens to work on released perls, but breaks in 5.9.5+
---

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 8987de1..315666b 100644
--- 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;