X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FStringify.pm;h=7a7ea7b18ac273592841e2f31463c6dbf717ce4f;hb=510ca9120ab2fea50a0852ee4ed6a13735ed7ebc;hp=6ba93101f3c52c413e2cc6209bf78998acc10548;hpb=33ec7be05c9bb95e99cb8bc45b811c2f3082445e;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/Stringify.pm b/lib/DBIx/Class/CDBICompat/Stringify.pm index 6ba9310..7a7ea7b 100644 --- a/lib/DBIx/Class/CDBICompat/Stringify.pm +++ b/lib/DBIx/Class/CDBICompat/Stringify.pm @@ -15,7 +15,7 @@ sub stringify_self { my $self = shift; my @cols = $self->columns('Stringify'); @cols = $self->primary_column unless @cols; - my $ret = join "/", map { $self->get($_) } @cols; + my $ret = join "/", map { $self->get_column($_) } @cols; return $ret || ref $self; }