From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 11 Sep 2009 22:58:21 +0000 (+0000)
Subject: Fix borked example
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d9632fd77404b25649fcda4d09999ca1778db87;p=dbsrgits%2FDBIx-Class-Historic.git

Fix borked example
---

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',[