[Bast-commits] r3464 - branches/DBIx-Class-current/lib/DBIx/Class

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-06-01 15:03:13 +0100 (Fri, 01 Jun 2007)
New Revision: 3464

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/ResultSet.pm
Log:
syntax fix: $#{@x} is invalid syntax that happens to work on released perls, but breaks in 5.9.5+

Modified: branches/DBIx-Class-current/lib/DBIx/Class/ResultSet.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/ResultSet.pm	2007-06-01 12:46:41 UTC (rev 3463)
+++ branches/DBIx-Class-current/lib/DBIx/Class/ResultSet.pm	2007-06-01 14:03:13 UTC (rev 3464)
@@ -1309,7 +1309,7 @@
     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;