[Bast-commits] r7633 - DBIx-Class/0.08/trunk/examples/Schema

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-11 22:58:21 +0000 (Fri, 11 Sep 2009)
New Revision: 7633

Modified:
   DBIx-Class/0.08/trunk/examples/Schema/insertdb.pl
Log:
Fix borked example

Modified: DBIx-Class/0.08/trunk/examples/Schema/insertdb.pl
===================================================================
--- DBIx-Class/0.08/trunk/examples/Schema/insertdb.pl	2009-09-11 22:44:01 UTC (rev 7632)
+++ DBIx-Class/0.08/trunk/examples/Schema/insertdb.pl	2009-09-11 22:58:21 UTC (rev 7633)
@@ -47,10 +47,10 @@
 
 my @tracks;
 foreach my $track (keys %tracks) {
-    my $cdname = $schema->resultset('Cd')->search({
+    my $cd = $schema->resultset('Cd')->find({
         title => $tracks{$track},
     });
-    push @tracks, [$cdname->first, $track];
+    push @tracks, [$cd->id, $track];
 }
 
 $schema->populate('Track',[