Class::DBI imports first() from List::Util

[prev] [thread] [next] [Date index for 2004/04/27]

Class::DBI imports first() from List::Util, which throws a warning whne a database column is named 'first'. Heres a patch that fixes that:


20c20
< use List::Util 'first';
---
> use List::Util;
439,440c439,440
< 			|| (first { $_->mutator  eq $k } $class->columns)
< 			|| (first { $_->accessor eq $k } $class->columns)
---
> 			|| (List::Util->first({ $_->mutator  eq $k }, $class->columns))
> 			|| (List::Util->first({ $_->accessor eq $k }, $class->columns))
1033c1033
< 			|| (first { $_->accessor eq $col } $class->columns)
---
> 			|| (List::Util->first({ $_->accessor eq $col }, $class->columns))


Todd W.