X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FSchema%2Finsertdb.pl;fp=examples%2FSchema%2Finsertdb.pl;h=67a432f05f42deefb2c58f08f1adc77dbc88389d;hb=3d9632fd77404b25649fcda4d09999ca1778db87;hp=e8603bb9aa284947995fe43975e0f5e9e1612b98;hpb=c6e27318d1a83b7474eaea616d47d478746609f2;p=dbsrgits%2FDBIx-Class.git

diff --git a/examples/Schema/insertdb.pl b/examples/Schema/insertdb.pl
index e8603bb..67a432f 100644
--- a/examples/Schema/insertdb.pl
+++ b/examples/Schema/insertdb.pl
@@ -47,10 +47,10 @@ my %tracks = (
 
 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',[